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1.0 INTRODUCTION 


The fig-FORTH Implementation project occurred 
because a key group of Forth fanciers wished 
to make this valuable tool available on a 
personal computing level. In June of 1978 t 
ve gathered a team of nine systems level 
programmers, each with a particular target 
computer. The charter of the group was to 
translate a common model of Forth Into assea- 
b ly language listings for each computer. It 
was agreed that the group's work would be 
distributed in the public domain by FIG. This 
publication series Is the conclusion of the 
work. 


2.0 DISTRIBUTION 


All publications of the Forth Interest Group 
are public domain. They may be further 
reproduced and distributed by Inclusion 
of this credit notice: 

This publication has been made available 
by the Forth Interest Group, 

P. 0. Box 1105, San Carlos, Ca 94070 


Ve Intend that our primary recipients of the 
Implementation Project be computer users 
groups, libraries, and commercial vendors. 

Ve expect that each will further customize for 
particular computers and redistribute. No 
restrictions are placed on cost, but we 


expect faithfulness to the model. FIG does 
not Intend to distribute machine readable 
versions, as that entails customization, 
revision, and customer support better reserved 
for commerlcal vendors. 

Of course, another broad group of recipients 
of the work Is the community of personal 
computer users. Ve hope that our publications 
will aid in the use of Forth and Increase 
the user expectation of the performance of 
high level computer languages. 


3.0 MODEL ORGINIZATION 


The fig-FORTH model deviates a bit from the 
usual loading method of Forth. Existing 
systems load about 2k bytes In object form 
and then self-complie the resident system 
(6 to 8 k bytes). This technique allows 
customization within the high level portion, 
but la Impractical for new Implementors. 

Our model has 4 to 5 k bytes written as assem¬ 
bler listings. The remainder may be compiled 
typing In the Forth high-level source, by 
more assembly source, or by disc compilation. 
This method enhances transportability, 
although the larger portion in assembly code 
entails more effort. About 8k bytes of memory 
la used plus 2 to 8k for workspace. 


3.1 MODEL OVER-VIEW 


The model consists of 7 distinct areas. They 
occur sequentially from low memory to high. 

Boot-up parameters 
Machine code definitions 
High level utility definitions 
Installation dependent code 
High level definitions 
System tools (optional) 

RAM memory workspace 
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3.2 MODEL DETAILS 


Boot-up Parameters 

This area consists of 34 bytes containing a 
jump to the cold start, jump to the warm 
re-start and initial values for user variables 
and registers. These values are altered as 
you make permanent extensions to your 
installation. 


Machine Code Definitions 

This area consists of about 600 to 800 bytes 
of machine executable code in the form of 
Forth word deflations. Its purpose is to 
convert your computer into a standard Forth 
stack computer. Above this code, the balance 
of Forth contains a pseudo-code compiled of 
"execution-addresses" which are sequences 
of the machine address of the "code-fields" 
of other Forth definitions. All execution 
ultimately refers to the machine code 
definitions. 


High-level Utility Definitions 

These ere colon-definitions, user variables, 
constants, and variables that allow you to 
control the "Forth stack computer". They 
comprise the bulk of the system, enabling 
you to execute and compile from the terminal. 
If disc storage (or a RAM simulation of disc) 
is available, you may also execute and compile 
from this facility. Changes in the high-level 
area are infrequent. They may be made thru 
the assembler source listings. 


Installation Dependent Code 

This area is the only portion that need 
change between different installations of the 
same computer cpu. There are four code 
f ragments: 

(KEY) Push the next ascii value (7 bits) 
from the terminal keystroke to the 
computation stack and execute NEXT. 

High 9 bits are zero. Do not echo this 
character, especially a control character. 


(EMIT) Pop the computation stack 
(16 bit value). Display the low 7 bits 
on the terminal device, then execute 
NEXT. Control characters have their 
natural functions. 

(?TERMINAL) For terminals with a break 
key, wait till released and push to 
the computation stack 0001 if it was 
found depressed; otherwise 0000. 

Execute NEXT. If no break key is avail¬ 
able, sense any key depression as a 
break (sense but don't wait for a key). 
If both the above are unavailable, 
simply push 0000 and execute NEXT. 


(CR) Execute a terminal carriage 
return and line feed. Execute NEXT. 


When each of these words is executed, the 
lntepreter vectors from the definition 
header to these code sequences. On 
specific implementations it may be necessary 
to preseve certain registers and observe 
operating system protocols. Understand the 
Implementors methods in the listing before 
p roceeding1 


R/W This colon-definition is the 
standard linkage to your disc. It 
requests the read or write of a disc 
sector. It usually requires supporting 
code definitions. It may consist of 
self-contained code or call ROM monitor 
code. When R/W is assembled, its code 
field address is inserted once in 
BLOCK and once in BUFFER. 

An alternate version of R/W is 
Included that simulates disc storage 
in RAM. If you have over 16 k bytes 
this is practical for startup and 
limited operation with cassette. 


High-level Definitions 

The next section contains about 30 definit¬ 
ions involving user interaction: compiling 
aids, finding, forgetting, listing, and 
number formating. These definitions are 
placed above the installation dependent code 
to facilitate modification. That is, once 
your full system is up, you may FORGET part 
of the high-level and re-compile altered 
definitions from disc. 


Sytsem Tools 

A text editor and machine code assembler are 
normally resident. We are including a sample 
editor, and hope to provide Forth assemblers. 
The editor is compiled from the terminal 
the first time, and then used to place the 
editor and assembler source code on disc. 

It is essential that you regard the assembly 
listing as Just a way to get Forth* installed 
on your system. Additions and changes must 
be planned and tested at the usual Forth high 
level and then the assmbly routines updated. 
Forth work planned and executed only at an 
assembly level tends to be non-portable, and 
confusing. 

RAM Workspace 

For a single user system, at least 2k bytes 
must be available above the compiled system 
(the dictionary). A 16k byte total system 
is most typical. 

The RAM workspace contains the computation 
and return stacks, user area, terminal Input 
buffer, disc buffer and compilation space 
for the dictionary. 
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4.0 INSTALLATION 


Ve see the following methods of getting s 
functioning fig-FORTH system: 


1 . 

2 . 
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about two hours once you under¬ 
stand the structure of Forth (but 
that will take much more time!). 


Let us examine Step 3, above, in fuller 
detail. If you wish to bring up Forth only 
from this model, here are the sequential 
steps: 

4.1 Familiarize yourself with the model 
written in Forth, the glossary, and specific 
assembly listings. 

4.2 Edit the assembly listings into your 
system. Set the boot-up parameters at origin 
offset 0A, OB (bytes) to 0000 (warning-00). 

4.3 Alter the terminal support code 
(KEY, EMIT, etc,) to match your system. 
Observe register protocol specific to your 
implementation! 


4.4 Place a break to your monitor at the end 
of NEXT, Just before indirectly jumping via 
register V to execution. V is the Forth name 
for the register holding a code field address, 
and may be differently referenced in your 
listings. 

4.5 Enter the cold start at the origin. Upon 
the break, check that the interpretive pointer 
IP points within ABORT and W points to SP!. 

If COLD is a colon-definition, then the IP 
has been initialized on the way to NEXT and 
your testing will begin in COLD. The 
purpose of COLD is to initialize IP, SP, RP, 
UP, and some user variables from the start-up 
parameters at the origin. 


4.7 Execution errors may be localized by 
observing the above pointers when a crash 
occurs. 

4.8 After the word QUIT is executed 
(incrementally), and you can input a "return*' 
key and get OK printed, remove the break. 

You may have some remaining errors, but a 
reset and examination of the above registers 
will again localize problems. 


4.9 Vhen the system is interpreting from the 
keyboard, execute EMPTY-BUFFERS to clear 
the disc buffer area. You may test the disc 
access by typing: 0 BLOCK 64 TYPE 
This should bring sector zero from the disc 
to a buffer and type the first 64 characters. 
This sector usually contains ascii text of the 
disc directory. If BLOCK (and R/W) doesn't 
function--happy hunting! 

5.0 If your disc driver differs from the 
assembly version, you must create your own 
R/W. This word does a range check (with 
error message), modulo math to derive sector, 
track, and drive and passes values to a 
sector-read and sector-write routine. 

RAM DISC SIMULATION 

If disc is not available, a simulation of 
BLOCK and BUFFER may be made in RAM. The 
following definitions setup high memory as 
masa storage. Referenced 'screens' are then 
brought to the 'disc buffer' area. This ia 
a good method to test the start-up program 
even if disc may be available. 


HEX 

4000 CONSTANT L0 ( START OF BUFFER AREA ) 
6800 CONSTANT HI ( 10 SCREEN EQUIVALENT ) 
: R/V >R ( save boolean ) 

B/BUF * L0 + DUP 

HI > 6 TERROR ( range check ) 

R> IF ( read ) SWA? ENDIF 
B/BUF CMOVE 5 

Insert the code field address of R/W into 
BLOCK and BUFFER and proceed as if testing 
diac. R/W simulates screens 0 thru 9 when 
B/BUF is 128, in the memory area $4000 thru 
$ 6B FF• 


4.6 Continue execution one word at a time. 
Clever individuals could write a simple trace 
routine to print IP, W, SP, RP and the top of 
the stacks. Run in this single step mode 
until the greeting message is printed. Note 
that the interpretation is several hundred 
cycles to this stage! 
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fig-FORTH VARIABLE NAME FIELD 

A major FIG innovation in this model, is 
the introduction of variable length defin¬ 
ition names in compiled dictionary entries* 
Previous methods only saved three letters and 
the character count. 

The user may select the letter count saved, 
up to the full natural length. See the 
glossary definition for WIDTH. 


In this model, the following conventions 
have been established. 

1. The first byte of the name field has the 
natural character count in the low 5 bits. 

2. The sixth bit * 1 when smudged, and will 
prevent a match by (FIND). 

3. The seventh bit - i for IMMEDIATE defin¬ 
itions; it is called the precedence bit. 

4. The eighth or sign bit is always * 1. 

3. The following bytes contain the names' 

letters, up to the value in WIDTH. 

6. In the byte containing the last letter 

saved, the sign bit • 1. 

7. In word addressing computer, a name may 

be padded with a blank to a word boundary. 


The return stack grows downward from the user 
area toward the terminal buffer. Forty-eight 
bytes are sufficient. The origin is in RO 
(R-zero) and is loaded from a boot-up literal. 

The computation stack grows downward from the 
terminal buffer toward the dictionary, which 
grows upward. The origin of the stack is 
is in variable SO (S-zero) and is loaded from 
a boot-up literal. 


After a cold start, the user variables contain 
the addresses of the above memory assignments. 
An advanced user may relocate while the 
system is running. A newcomer should alter 
the startup literals and execute COLD. The 
word +ORIGIN is provided for this purpose. 
♦ORIGIN gives the address byte or word rel¬ 
ative to the origin depending on the computer 
addressing method. To change the backspace 
to contol H type: 

HEX 08 0E +0RIGIN 1 ( byte addresses) 


The above methods are implemented in CREATE. 
Remember that -FIND uses BL WORD to bring 
the naxt text to HERE with the count preceed- 
ing. All that is necessary, is to limit by 
WIDTH and toggle the proper delimiting bits. 


5.0 MEMORY MAP 

The following memory map is broadly used. 
Specific installations may require alterations 
but you may forfeit functions in future FIG 
off erings• 

The disc buffer area is at the upper bound of 
RAM memory. It is comprised of an Integral 
number of buffers, each B/BUF+4 bytes. 

B/BUF is the number of bytes read from the 
disc, usually one sector. B/BUF must be a 
power of two (64, 128, 256, 512 or 1024). 

The constant FIRST has the value of the 
address of the start of the first buffer. 

LIMIT has the value of the first address 
beyond the top buffer. The distance between 
FIRST and LIMIT must be N*(B/BUF+4) bytes. 

This N must be two or more. 


Constant B/SCR has the value of the number of 
buffers per screen; i.e. 1024 / B/BUF. 

The user area must be at least 34 bytes; 48 
is more appropriate. In a multi-user system, 
each user has his own user area, for his copy 
of system variables. This method allows re¬ 
entrant use of the Forth vocabulary. 

The terminal input buffer is decimal 80 bytes 
(the hex 50 in QUERY) plus 2 at the end. If a 
different value is desired, change the limit 
in QUERY. A parameter in the boot-up 
literals locates the address of this area for 
TIB. The backspace character is also in the 
boot-up origin parameters. It is universally 
expected that ’’rubout" is the backspace. 
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fig-FORTH GLOSSARY 


This glossary contains all of Che word def¬ 
initions in Release 1 of fig-FORTH* The 
definitions are presented In the order of 
their ascii sort. 

The first line of each entry shows a symbolic 
description of the action of the proceedure on 
the parameter stack* The symbols indicate Che 
order in which input parameters have been 
placed on the stack. Three dashes —" 

indicate the execution point; any parameters 
left on the stack are listed* In this 
notation, the top of the stack is to the 
riph t. 


The symbols include: 
addr memory address 

b 8 bit byte (l.e* hi 8 bits zero) 

c 7 bit ascii character (hi 9 bits zero) 

d 32 bit signed double integer, 

most significant portion with sign 
on top of stack* 

f boolean flag. 0-false, non-zero-true 

ff boolean false flag-0 

n 16 bit signed integer number 

u 16 bit unsigned integer 

tf boolean true flag-non-zero 


The capital letters on Che right show defin¬ 
ition characteristics: 

C May only be used within a colon defin¬ 

ition* A digit indicates number 
of memory addresses used, if other 
than one* 

E Intended for execution only* 

LO Level Zero definition of FORTH-78 
Li Level One definition of FORTH-78 
P Has precedence bit set* Will execute 

even when compiling* 

U A user variable* 


Unless otherwise noted, all references to 
numbers are for 16 bit signed integers* On 
8 bit data bus computers, the high byte of 
a number is on top of the stack, with the sign 
in the leftmost bit* For 32 bit signed double 
numbers, the most significant part (with the 
sign) is on top* 

All arlthemetlc is implicitly 16 bit signed 
Integer math, with error and under-flow 
indication unspecified* 
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( ;CODE) 


FORTH 


n addr — 

Store 16 bits of n at address. 
Pronounced "store". 


LO (+LOOP) n - c2 

The run-time proceedure compiled 
by 4-LOOP, which Increments the loop 
index by n and teats for loop comple¬ 
tion. See +LOOP. 


Save the stack position in CSP. Used 
as part of the compiler security. 


dl - d 2 LO 

Generate from a double number dl, the 
next ascii character which is placed 
in an output string. Result d2 is 
the quotient after division by BASE, 
and is maintained for further pro¬ 
cessing. Used between <# and #>• 

See #S• 


(ABORT) 

Executes after an error when WARNING 
is -1. This word normally executes 
ABORT, but may be altered (with care) 
to a user's alternative proceedure. 


(DO) C 

The run-time proceedure compiled by 
DO which moves the loop control para¬ 
meters to the return stack. See DO. 


d — addr count LO 

Terminates numeric output conversion 
by dropping d, leaving the text 
address and character count suitable 
for TYPE. 


dl - d2 LO 

Generates ascii text in the text out¬ 
put buffer, by the use of #, until 
a zero double number n2 results. 

Used between <# and #>. 


- addr P,L0 

Used in the form: 

nnnn 

Loaves the parameter field address 
of dictionary word nnnn. As a comp¬ 
iler directive, executes in a colon- 
definition to compile the address 
as a literal. If the word is not 
found after a search of CONTEXT and 
CURRENT, an appropriate error mess¬ 
age is given. Pronounced "tick". 


P, LO 


Used in the form: 

( cccc) 

Ignore a comment that will be 
delimited by a right parenthesis 
on the same line. May occur during 
execution or in a colon-definition. 

A blank after the leading parenthesis 
is required. 


(FIND) addr1 addr2 — pfa b tf (ok) 

addrl addr2 —- ff (bad) 

Searches the dictionary starting at 
the name field address addr2, match¬ 
ing to the text at addrl. Returns 
parameter field address, length 
byte of name field and boolean true 
for a good match. If no match is 
found, only a boolean false is left. 


(LINE) nl n2 —- addr count 

Convert the line number nl and the 
screen n2 to the disc buffer address 
containing the data. A count of 64 
indicates the full line text length. 


(LOOP) C2 

The run-time proceedure compiled by 
LOOP which increments the loop index 
and teats for loop completion. 

See LOOP. 


(NUMBER) dl addrl — d2 addr2 

Convert the ascii text beginning at 
addrl4-l with regard to BASE. The new 
value is accumulated into double 
number dl, being left as d2. Addr2 
is the address of the first uncon- 
vertable digit. Used by NUMBER. 


nl n2 — prod LO 

Leave the signed product of two 
signed numbers. 


The run-time proceedure, compiled by 
." which transmits the following 
in-line text to the selected output 
device. See •" 


The run-time proceedure, compiled by 
;CODE, that rewrites the code field 
of the most recently defined word to 
point to the following machine code 
sequence. See ;CODE. */MOD 


nl n2 n3 - n4 LO 

Leave the ratio n4 - nl*n2/n3 
where all are signed numbers. Ret¬ 
ention of an intermediate 31 bit 
product permits greater accuracy than 
would be available with the sequence: 
nl n2 * n3 / 


nl n2 n3 - n4 n5 LO 

Leave the quotient n5 and remainder 
n4 of the operation nl*n2/n3 
A 31 bit intermediate product is 
used as for */• 
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nl n2 - sun ^0 -DUP 

Leave Che sun of nl^n2. 

n add r - L0 

Add n to Che value aC Che addreaa. 
Pronounced "plus-score”• 

nl n2 — n 3 

Apply Che sign of n2 Co nl, which 
is lefc as n3* 


add 1 - add r 2 f 

Advance Che disc buffer addreaa addrl 
Co Che address of Che next buffer 
addr2* Boolean f Is false when addr2 
is Che buffer presencly poinced Co 
by variable PREV. 


nl — nl (if zero) 

nl — nl nl (non-zero) LO 

Reproduce nl only if ic is non-zero* 
This is usually used Co copy a value 
jusc before IF, Co eliminace Che need 
for an ELSE pare Co drop it. 


FIND — pfa b Cf (found) 

--- ff (not found) 

AccepCs Che next CexC word (delimited 
by blanks) in Che inpuc screen Co 
HERE, and searches Che CONTEXT and 
Chen CURRENT vocabularies for a 
raacching entry. If found, Che 
diccionary entry's parameter field 
address, its length byte, and a 
boolean true is left* Otherwise, 
only a boolean false is left* 


nl -— (run) 

addr n2 - (compile) P,C2,L0 

Used in a colon-definition in Che 
form: 

DO ... nl +LOOP 
At run-time, +100? selectively 
controls branching back to Che cor¬ 
responding DO based on nl, Che loop 
index and Che loop llmlc. The signed 
incremenC nl is added Co che index 
and che total compared to Che limit. 
The branch back to DO occurs until 
the new index is equal to or greacer 
than the limit (nl>0), or until the 
new index is equal to or less chan 
che llmlc (nl<0) • Upon exiting Che 
loop, che parameters are discarded 
and execution continues ahead. 


At compile time, ♦LOOP compiles 
the run-time word (+100?) and the 
branch offset computed from HERE Co 
Che address lefc on Che stack by 
DO* n2 is used for compile time 
error checking. 


TRAILING addr nl .- addr n2 

Adjusts Che character count nl of a 
CexC scrlng beginning address to 
suppress che output of trailing 
blanks* l.e. the characters at 
addr^nl Co addr+n2 are blanks* 


n - LO 

Princ a number from a signed 16 blc 
two's complement value, converted 
according to che numeric BASE* 

A trailing blanks follows* 

Pronounced "dot". 


P ,L0 

Used in che form: 

. cc c c 

Compiles an in-line scrlng cccc 
(delimited by the trailing ") wlch an 
execution proceedure to transmit Che 
CexC to Che selected output device* 

If executed outside a definition, • ” 
will immediately print che text until 
Che final "• The maximum number of 
characters may be an installation 
dependent value. See (.")* 


n — addr 

Leave the memory addreaa relative -.LINE 

by n to the origin parameter area, 
n is the minimum address unit, either 
byta or word. This definition is used 
to access or modify the boot-up 
parameters at the origin area. 

.R 

a - LO 

Store n into the next available dict¬ 
ionary memory cell, advancing the 
dictionary pointer. (comma) 


nl n2 - diff 

Leave the difference of nl-n2. 


LO 

/MOD 


P, LO 

Continue interpretation with the 
next disc screen* (pronounced 
next-screen)• 


line acr - 

Print on the terminal device, a line 
of text from the disc by its line and 
screen number. Trailing blanks are 
s uppressed• 


nl n2 - 

Print che number nl right aligned in 
a field whose width is n2* No 
following blank is printed. 


nl n2 — quot LO 

Leave the signed quotient of nl/n2. 


nl n2 —- rem quot LO 

Leave the remainder and algned 
quotient of nl/n2. The remainder has 
the sign of the dividend* 


i 
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; CODE 


FORTH 


These snail numbers are used so often 
that is Is attractive to define them 
by name in the dictionary as coast- 
ants • 


n - f L0 

Leave a true flag if the number is < 

less than rero (negative), othervise 
leave a false flag* 


n - f L0 <# 

Leave a true flag is the number is 
equal to zero, otherwise leave a 
false flag* 


f - C2 

The run-time proceedure to condition¬ 
ally branch* If f is false (zero), 
the following in-line parameter is 
added to the interpretive pointer to 
branch ahead or back. Compiled by 
IF, UNTIL, and WHILE. 


nl — n 2 LI 

Increment nl by 1* 


nl - n2 

Leave nl Incremented by 2* 


P,E,L0 

Used in the form called a colon- 
definition: 

: cccc ••• ; 

Creates a dictionary entry defining 
cccc as equivalent to the following 
sequence of Forth word definitions 
'**.' until the next or ';C0DE'. 

The compiling process is done by 

the text interpreter as long as 

STATE is non-zero* Other details 

are that the CONTEXT vocabulary is > 

set to the CURRENT vocabulary and 

that words with the precedence bit 

set (P) are executed rather than 

being compiled* 

>R 

P,C,L0 

Terminate a colon-definition and 
stop further compilation. Compiles 
the run-time ;S. 


Stop interpretation of a screen. 

;S la also the run-time word compiled 
at the end of a colon-definition 
which returns execution to the 
calling proceedure* 


nl n2 — f L0 

Leave a true flag if nl is less than 
n2; otherwise leave a false flag. 


L0 

Setup for pictured numeric output 
formatting using the words: 

<# # #S SIGN #> 

The conversion is done on a double 
number producing text at PAD. 


C, L0 

Used within a colon-definition: 

: cccc <BUILDS ••• 

DOES > •*. ; 

Each time cccc is executed, <BUILDS 
defines a new word with a high-level 
execution proceedure. Executing cccc 
in the form: 

cccc nnnn 

nsea <BUILDS to create a dictionary 
entry for nnnn with a call to the 
D0ES> part for nnnn. When nnnn la 
later executed, it has the address of 
its parameter area on the stack and 
executes the words after DOES> in 
cccc. <BUILDS and DO£S> allow run¬ 
time proceedures to written in high- 
level rather than in assembler code 
(as required by ;CODE). 


nl n2 - f L0 

Leave a true flag if nl«n2; other¬ 
wise leave a false flag. 


nl n2 — f L0 

Leave a true flag if nl is greater 
than n2; otherwise a false flag. 

n - C,L0 

Remove a number from the computation 
stack and place as the most access- 
able on the return stack. Use should 
be balanced with R> in the same 
definition. 


<BUILDS 


P , C , L0 ? 

Used in the form: 

: cccc •••• ;CODE 

assembly mnemonics 

Stop compilation and terminate a new 
defining word cccc by compiling 
(;CODE)• Set the CONTEXT vocabulary 
to ASSEMBER, assembling to machine 
code the following mnemonics. 


addr — L0 

Print the velue contained at the 
address in free format according to 
the current base. 


TCOMP 

Issue error message if not compiling. 


When cccc later executes in the form: TCSP 

cccc nnnn 

the word nnnn will be created with 
its execution proceedure given by 
by the machine code following cccc. 

That is, when nnnn is executed, it 
does so by jumping to the code after 
nnnn. An existing defining vord 
must exist in cccc prior to ;C0DE. 


Issue error message if stack position 
differs from value saved in CSP. 
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TERROR £ n - 

Issue an error message number n, if 
Che boolean flag la true* 


B/BUF 


This conatant leaves Che number of 
bytes per disc buffer, Che byte count 
read from dlac by BLOCK* 


7EXEC 


Iasue an error aeaaage If noc exec- 
utlng. 


7L0ADING 


Iaaue an error aeaaage If noc loading 


B/SCR - n 

Thla conacant leavea Che number of 
blocka per edlClng screen* By con¬ 
vention, an edlClng screen la 1024 
byCea organised aa 16 lines of 64 
characctrs each* 


7PA1RS nl n2 -— 

Issue an error message If nl does not 
equal n2* The message lndlcaCes ChaC 
compiled condlClonals do noc macch* 


BACK addr - 

Calculate Che backward branch offsec 
from HERB Co addr and compile lnco 
Che next* available dlcclouary memory 

address* 


7STACK 


Iaaue an error aeaaage la Che sCack 
la ouc of bounds* This deflnlClon 
may be Inscallaclon dependant. 


BASE - addr U,L0 

A user variable concanlng Che current 
number base used for InpuC and out- 
puc conversion* 


7TERMIHAL - f 

Perform a Case of Che Cermlnal key¬ 
board for accuaclon of Che break key* 
A crue flag lndlcaCes accuaclon* 
This definition la Installation 
dependent• 


addr — n L0 

Leave Che 16 bit contents of address* 


BEGIN 


ABORT 


ABS 


AGAIN 


ALLOT 


AND 


L0 

Clear the stacks and enter Che exec¬ 
ution state* Recurn control to the 
operators terminal, printing a mess¬ 
age appropriate to the Installation* 


n — u 

Laave the absolute value of 


L0 


addr n — (compiling) ?,C2,L0 
Used In a colon-definion In the forms 
BEGIN ••• AGAIN 

At run-time, AGAIN forces execution 
to return to corresponding BEGIN* 
There Is no effect on the stack* 
Execution cannot leave this loop 
(unless R> DROP la executed one 
level below)* 

At compile time, AGAIN compiles 
BRANCH with an offset from HERE to 
addr* n la used for complle-tlme 
error checking* 


n - L0 

Add the signed number to the diction¬ 
ary pointer DP. May be used to 
reserve dictionary space or re-orlgln 
memory* n Is with regard to computer 
address type (byte or word)* 


. nl n2 — n2 L0 

Leave the bitwise logical and of nl 
and n2 as n3* 


BL 


BLANKS 


BLK 


BLOCK 


— addr n (compiling) P,L0 
Occurs In a colon-definition in form: 
BEGIN ••• UNTIL 
BEGIN ••• AGAIN 
BEGIN *•• WHILE ••• REPEAT 
At run-time, BEGIN marks the start 
of a sequence that may be repetitive¬ 
ly executed* It serves as a return 
point from the corresponding UNTIL, 
AGAIN or REPEAT* When executing 
UNTIL, a return to BEGIN will occur 
If the top of the stack la false; 
for AGAIN and REPEAT a return to 
BEGIN always occurs* 

At complla time BEGIN leaves Its ret¬ 
urn address and n for compllar error 
checking* 


A constant that laaves the ascii 
value for "blank". 


addr count — 

Pill an area of memory beglnlng at 


addr with*blanks* 


- addr U,L0 

A user variable containing the block 
number being Interpreted* If sero, 
input Is being taken from the term¬ 
inal Input buffer* 


n —— addr L0 

Leave the memory address of the block 
buffer containing block n* If the 
block is not already in memory, it is 
transferred from disc to which ever 
buffer was least recently written. 

If the block occupying that buffer 
has been marked as updated. It Is re¬ 
written to disc before block n Is 
read Into the buffer. See also 
BUFFER, R/W UPDATE FLUSH 
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COMPILE 


C2 


BLOCK- 

BLOCK- 


BRANCH 


BUFFER 


Cl 


C, 


C$ 


CFA 


CMOVE 


COLD 


READ 

VRITE These ere Che preferred names 
for Che Installation dependent code 
to read and write one block to the 
disc. 


C2,L0 

The run-time proceedure to uncondit¬ 
ionally branch. An In-line offset 
is added to the interpretive pointer 
IP to branch ahead or back. BRANCH 
is compiled by ELSE, AGAIN, REPEAT. 


n - addr 

Obtain the next memory buffer, ass¬ 
igning It to block n. If the con¬ 
tents of the buffer is marked as up¬ 
dated, It is written to the disc 
The block is not read from the disc* 
The address left is the first cell 
within the buffer for data storage. 


When the word containing COMPILE 
executes, the execution address of 
the word following COMPILE is copied 
(compiled) into the dictionary. 

This allows specific compilation 
situations to be handled in addlton 
to simply compllng an execution 
address (which the interpreter 
already does). 

CONSTANT n'- LO 

A defining word used in the form: 
n CONSTANT cccc 

to create word cccc, with its para¬ 
meter field containing n. When cccc 
is later executed, it will push 
the value of n to the stack. 


CONTEXT — add r U,L0 

A user variable containing a pointer 
to the vocabulary within which dict¬ 
ionary searches will first begin. 


b addr — 

Store 8 bits at address. On word 
addressing computers, further spec¬ 
ification is necessary regarding byte 
addressing• 


b - 

Store 8 bits of b into the next 
available dictionary byte, advancing 
the dictionary pointer. This is only 
available on byte addressing comp¬ 
uters, and should be used with 
caution on byte addressing mini¬ 
computers. 


addr - b 

Leave the 8 bib contents of memory 
address. On word addressing comput¬ 
ers, further specification is needed 
regarding byte addressing. 


pfa - cfa 

Convert the parameter field address 
of a definition to its code field 
address• 


from to count — 

Move the specified quantity of bytes 
beginning at address from to address 
to. The contents of address from 
is moved first proceeding toward high 
memory. Further specification is 
necessary on word addressing comp¬ 
uters. 


COUNT addr1 -— addr2 n LO 

Leave the byte address addr2 and byte 
count n of a message text beginning 
at address addrl. It is presumed 
that the first byte at addrl contains 
the text byte count and the actual 
text starts with the second byte. 
Typically COUNT is followed by TYPE. 


CR 


LO 


Transmit a carriage return and line 
feed to the selected output device. 


CREATE 


A defining word used in the form: 
CREATE cccc 

by such words as CODE and CONSTANT 
to create a dictionary header for 
a Forth definition. The code field 
contains the address of the words 
parameter field. The new word is 
created in the CURRENT vocablary. 


CSP —— addr U 

A user variable temporarily storing 
the stack pointer position, for 
compilation error checking. 


D+ dl d2 -da um 

Leave the double number sum of two 
double numbers. 


D+- dl n - d 2 

Apply the sign of n to the double 
number dl, leaving it as d2« 


The cold start proceedure to adjust 

the dictionary pointer to the min- D. 

imum standard and restart via ABORT. 

May be called from the terminal to 
remove application programs and 
restart• 


d - LI 

Print a signed double number from a 
32 bit two's complement value. The 
high-order 16 bits are most access- 
able on the stack. Conversion is 
performed according to the current 
BASE. A blank follows. Pronounced 
D-dot• 
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D.R 


d n - DO 

Print a signed double number d right 
aligned in a field n characters wide* 


DABS d - ud 

Leave the absolute value ud of a 
double number* 


DECIMAL LO 

Set Che numeric conversion BASE for 
decimal input-output* 


DEFINITIONS LI 

Used in the form: 

cccc DEFINITIONS 
Set the CURRENT vocabulary to the 
CONTEXT vocabulary* In the example, 
executing vocabulary name cccc made 
it the CONTEXT vocabulary and exec¬ 
uting DEFINITIONS made both specify 
vocabulary cccc. 


DIGIT c nl - n2 tf (ok) 

c nl - ff (bad) 

Converts the ascii character c (using 
base nl) to its binary equivalent n2 
accompanied by a true flag* If the 
conversion la invalid, leaves only 
a false flag. 


DLIST 

List the names of the dictionary 
entries in the CONTEXT vocabulary* 


DLITERAL d - d (executing) 

d — (compiling) 

If compiling, compile a stack double 
number into a literal* Later execut¬ 
ion of the definition containing the 
literal will push it to the stsck* If 
executing, the number will remain on j>p 
the stack* 


DMINUS dl - d2 

Convert dl to its double number tiro's 
complement* 


nl n2 — (execute) 
addr n — (compile) P, C2",LO 
Occurs in a colon-definition in form: 
DO ... LOOP 
DO ••• +LOOP 

At run time, DO begins a sequence 
with repetitive execution controlled 
—by a loop limit nl and an index with 
initial value n2* DO removes these 
from the stack* Upon reaching LOOP 
the index is incremented by one. 

Until the new index equals or exceeds 
the limit, execution loops back to 
Just after DO; otherwise the loop 
parameters are discarded and execut¬ 
ion continues ahead* Both nl and n2 
are determined at run-time and may be 
the result of other operations. 

Within a loop 'I' will copy the 

urrent value of the index to the 
8/tack* See I, LOOP, +LOOP, LEAVE. 

When compiling within the colon- 
definition, DO compiles (DO), leaves 
the following address addr and n for 
later error checking* 

DOES> LO 

A word which defines the run-time 
action within a high-level defining 
word. DOES> alters the code field 
and first parameter of the new word 
to execute the sequence of compiled 
word addresses following DOES>. Used 
in combination with <BUILDS. When the 
DOES> part executes it begins with 
the address of the first parameter 
of the new word on the stack. This 
allows interpretation using this 
area or its contents. Typical uses 
P Include the Forth assembler, multl- 

dlmlnsional arrays, and compiler 
generation. 


—— addr U, L 

A user variable, the dictionary 
pointer, which contains the address 
of the next free memory above the 
dictionary* The value may be read by 
HERE and altered by ALLOT. 


DPL —— addr U,L0 

A user variable containing the number 
of digits to the right of the decimal 
on double Integer input. It may also 
be used hold output column location 
of a decimal point, in user generated 
formating. The default value on 
single number input is -1. 

D&O Installation dependent commands to 

DR1 select disc drives, by presetlng 

OFFSET. The contents of OFFSET is 
added to the block number in BLOCK 
to allow for this selection. Offset 
is supressed for error text so that 
la may always originate from drive 0. 
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DROP 


LO 


ENDIF 


n — 

Drop the number from Che stack. 


DUMP add r n - LO 

Print the contents of n memory 
locations beginning at addr. Both 
addresses and contents are shovn in 
the current numeric base. 


DUP n — n n LO 

Duplicate the value on the stack. 


ELSE addrl nl --- addr2 n2 

(compiling) P,C2,L0 
Occurs within a colon-definition 
in the form: 

IP ... ELSE ... ENDIF 
At run-time, ELSE executes after the 
true part following IF. ELSE forces 
execution to skip over the following 
false part and resumes execution 
after the ENDIF. It has no stack 
effect• 

At compile-time ELSE emplaces BRANCH 
reserving a branch .offset, leaves 
the address addr2 and n2 for error 
testing. ELSE also resolves the 
pending forward branch from IF by 
calculating the offset from addrl to 
HERE and storing at addrl. 


EMIT c - LO 

Transmit ascii character c to the 
selected output device. OUT is 
Incremented for each character 
output. 


EMPTY-BUFFERS LO 

Mark all block-buffers as empty, not 
necessarily affecting the contents. 
Updated blocks are not written to the 
disc. This is also an Initialization 
proceedure before first use of the 
disc. 

ENCLOSE addrl c — 

ddrl nl n2 n3 

The text scanning primitive used by 
WORD. From the text address addrl 
and an ascii delimiting character c, 
is determined the byte offset to the 
first non-delimiter character nl, 
the offset to the first delimiter 
after the text n2, and the offset 
to the first character not included. 
This proceedure will not process past 
an ascii 'null', treating it as an 
unconditional delimiter. 


addr n - (compile) P,C0,L0 

Occurs in a colon-definition in form: 
IF ... ENDIF 
IF ... ELSE ... ENDIF 
At run-time, ENDIF serves only as the 
destination of a forward branch from 
IF or ELSE. It marks the conclusion 
of the conditional structure. THEN 
is another name for ENDIF. Both 
names are supported in flg-FORTH• See 
also IF and ELSE. 

At comp 1le-1lme, ENDIF computes the 
forward branch offset from addr to 
HERE and stores it at addr. n is 
used for error tests. 


ERASE addr n - 

Clear a region of memory to zero from 
addr over n addresses. 


ERROR line — in blk 

Execute error notification and re¬ 
start of system. WARNING is first 
examined. If 1, the text of line n, 
relative to screen A of drive 0 is 
printed. This line number may be 
positive or negative, and beyond just 
screen A. If WARNING-0, n is just 
printed as a message number (non disc 
installation). If WARNING is -1, 
the definition (ABORT) is executed, 
which executes the system ABORT. The 
user may cautiously modify this 
execution by altering (ABORT). 
fig-FORTH saves the contents of IN 
and BLK to assist in determining the 
location of the error. Final action 
is' execution of QUIT. 


EXECUTE addr — 

Execute the definition whose code 
field address is on the stack. The 
code field address is also called 
the compilation address. 


EXPECT addr count — LO 

Transfer characters from the terminal 
to address, until a "return" or the 
count of characters have been rec¬ 
eived. One or more nulls are added 
at the end of the text. 


FENCE - addr U 

A user variable containing an 
address below which FORGETtlng is 
trapped. To forget below this point 
the user must alter the contents of 
FENCE. 



P,C2,L0 

FILL 

addr quan b 

— 

This is an 'alias' or 
definition for UNTIL. 

duplicate 


Fill memory at the 
specified quantity 

address with the 
of bytes b. 


FIRST - n 

A constant that leaves the address 
of the first (lowest) block buffer. 
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FLD 


FORGET 


FORTH 


HERE 


HEX 


HLD 


HOLD 


I 


ID* 


- addr U IF 

A user variable for control of number 
output field width* Presently un¬ 
used in fig-FORTH. 


E,L0 

Executed in the form: 

FORCET cccc 

Deletes definition named cccc from 
the dictionary with all entries 
physically following it. In fig- 
FORTH, an error message will occur if 
the CURRENT and CONTEXT vocabularies 
are not currently the same* 


P,L1 

The name of the primary vocabulary* 
Execution makes FORTH the CONTEXT 
vocabulary* Until additional user 
vocabularies are defined, new user 
definitions become a part of FORTH* 
FORTH is immediate, so it will exec¬ 
ute during the creation of a colon- 
definition, to select this vocabulary 
at compile time* 


- addr LO 

Leave the address of the next avail¬ 
able dictionary location* 


LO 

Set the numeric conversion base to 
sixteen (hexadecimal)* 


f - (run-time) 

— addr n (compile) P,C2,L0 
Occurs is a colon-definition in form: 
IF (tp) ... ENDIF 
IF (tp) ... ELSE (fp) ... ENDIF 
At run-time, IF selects execution 
based on a boolean flag. If f is 
true (non-zero), execution continues 
ahead thru the true part. If f la 
false (zero), execution skips till 
just after ELSE to execute the false 
part* After either part, execution 
resumes after ENDIF* ELSE and its 
false part are optional*; if missing, 
false execution skips to just after 
ENDIF. 


At compile-time IF compiles OBRANCH 
and reserves space for an offset 
at addr* addr and n are used later 
for resolution of the offset and 
error testing* 

IMMEDIATE 

Mark the most resently made definit¬ 
ion so that when encountered at 
compile time, it will be executed 
rather than being compiled* l.e* the 
precedence bit in its header is set. 
This method allows definitions to 
handle unusual compiling situations, 
rather than build them into the 
fundamental compiler. The user may 
force compilation of an immediate 
definition by proceeding it with 
[COMPILE]• 


— addr LO 

A user variable that holds the addr¬ 
ess of the latest character of text 
during numeric output conversion* 


c - LO 

Used between <# and #> to insert 
an ascii character into a pictured 
numeric output string* 
e*g* 2E HOLD will place a 
decimal point* 


- n C,L0 

Used within a DO-LOOP to copy the 
loop index to the stack* Other 
use is implementation dependent* 

See R. 


addr - 

Print a definition's name from its 
name field address. 


IN -— addr LO 

A user variable containing the byte 
offset within the current input text 
buffer (terminal or disc) from which 
the next text will be accepted. WORD 
uses and moves the value of IN* 


INDEX from to - 

Print the first line of each screen 
over the range from, to* This is 
used to view the comment lines of an 
area of text on disc screens* 


INTERPRET 

The outer text interpreter which 
sequentially executes or compiles 
text from the input stream (terminal 
or disc) depending on STATE* If the 
word name cannot be found after 
a search of CONTEXT and then CURRENT 
it la converted to s number according 
to the current base* That also fail¬ 
ing, an error message echoing the 
name with a " ? w will be given* 

Text input will be taken according to 
the convention for WORD. If a decimal 
point is found as part of a number, 
a double number value will be left* 
The decimal point has no other pur¬ 
pose than to force this action* 

See NUMBED.* 
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KEY 


LATEST 


LEAVE 


LFA 


LIMIT 


LIST 


LIT 


LITERAL 


LOAD 


- c LO LOOP 

Leave Che ascii value of the next 
terminal key struck* 


— addr 

Leave the name field address of the 
topmost word in the CURRENT vocabul- 
ary. 


C,L0 

Force termination of a DO-LOOP at the 
next opportunity by setting the loop 
limit equal to the current value of 
the Index* The index Itself remains 
unchanged, and execution prodeeda 
normally until LOOP or +LOOP la 
encountered* 


pfa - lfa 

Convert the parameter field address 
of a dictionary definition to its 
link field address* 


A constant leaving the address Just 
above the highest memory available 
fot a disc buffer* Usually this is 
the highest system memory* 


(compiling) P,C2,L0 
Occurs in a colon-definition in form: 
DO ••• LOOP 

At run-time, LOOP selectively cont¬ 
rols branching back to the correspon¬ 
ding DO based on the loop index and 
limit* The loop index is Incremented 
by one and compared to the limit. The 
branch back to DO occurs until the 
index equals or exceeds the limit; 
at that time, the parameters are 
discarded and execution continues 
ahead* 

At compile-time, LOOP compiles (LOOP) 
and uses addr to calculate an offset 
to DO* n is used for error testing. 

M* nl n2 - d 

A mixed magnitude math operation 
vhlch leaves the double number signed 
product of two signed number* 


M/ d nl - n2 n3 

A mixed magnitude math operator which 
leaves the signed remainder n2 and 
signed quotient n3, from a double 
number dividend and divisor nl* The 
remainder takes its sign from the 
dividend* 


n - LO M/MOD 

Display the ascii text of screen n 
on the selected output device* SCR 
contains the screen number during and 
after this process* 


udl u2 —- u3 ud4 
An unsigned mixed magnitude math 
operation which leaves a double 
quotient ud4 and remainder u3, from 
a double dividend udl and single 
divisor u2• 


- n C2 ,L0 

Within a colon-definition, LIT is 
automatically compiled before each 
16 bit literal number encountered in 
input text* Later execution of LIT 
causes the contents of the next 
dictionary address to be pushed to 
the stack* 


n (compiling) P,C2,L0 

If compiling, then compile the stack 
value n as a 16 bit literal. This 
definition is immediate so that it 
will execute during a colon defin¬ 
ition* The Intended use is: 

s xxx [ calculate J LITERAL 5 
Compilation is suspended for the 
compile time calculation of a value* 
Compilation is reusumed and LITERAL 
compiles this value* 


n - LO 

Begin interpretation of screen n* 
Loading will terminate at the end of 
the screen or at j.S* See ;S and — >• 


MAX nl n2 -— max LO 

Leave the greater of two numbers* 


MESSAGE n —- 

Print on the selected output device 
the text of line n relative to screen 
4 of drive 0* n may be positive or 
negative* MESSAGE may be used to 
print incidental text such as report 
headers* If WARNING is zero, the 
message will simply be printed as 
a number (disc un-available)• 


MIN nl n2 - min LO 

Leave the smaller of two numbers* 


MINUS nl - n2 LO 

• Leave the two's complement of a 
number* 


MOD nl n2 - mod LO 

Leave the remainder of nl/n2, with 
the same sign as nl* 


MON 

Exit to the system monitor, leaving 
a re-entry to Forth, if possible* 
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MOVE 


NEXT 


NPA 


NUMBER 


OFFSET 


OR 


OUT 


OVER 


addrl addr2 n —- PAD 

Move che concents of n memory cells 
(16 bit concents) beginning sC addrl 
into n cells beginning aC addr2* 

The concents of addrl is moved first* 

This definition is appropriate on 

on word addressing computers* P7A 


This is che inner interpreter that 

uses the interpretive pointer IP to 

execute compiled Forth definitions* POP 

It is not directly executed but is 

the return point for all code pro- 

ceedures. It acts by fetching the 

address pointed by IP, storing this 

value in register V. It then jumps 

to che address pointed to by the 

address pointed to by W* W points to 

the code field of a definition which PREV 

contains the address of the code 

which executes for that definition* 

This usage of indirect threaded code 
is a major contributor to the power, 
portability, and extensibility of 
Forth. Locations of IP and U are 
computer specific* 

PUSH 

pfa - nfa 

Convert the parameter field address 
of a definition to its name field* 


addr - d 

Convert a character string left at PUT 

addr with a preceedlng count, to 
a signed double number, using the 
current numeric base* If a decimal 
point is encountered in che text, its 
position will be given in DPL, but 
no other effect occurs* If numeric 
conversion is not possible, an error 
message will be given* 


- addr U 

A user variable which may contain 
a block offset to disc drives* The 
contents of OFFSET is added to the 
stack number by BLOCK* Messages 
by MESSAGE are independent of OFFSET* 
See BLOCK, DRO, DR1, MESSAGE* 


nl n2 — or LO 

Leave the bit-wise logical or of two 
16 bit values* 


—- addr LO 

Leave the address of the text output 
buffer, which is a fixed offset above 
HERE* 


nfa — pfa 

Convert the name field address of 
a compiled definition to its para¬ 
meter field address* 


The code sequence to remove a stack 
value and return to NEXT* POP is 
not directly executable, but is a 
Forth rfc-entry point after machine 
code* 


--— -addr 

A variable containing the address of 
the disc buffer moat recently ref¬ 
erenced* The UPDATE command marks 
this buffer to be later written to 
dlac* 


This code sequence pushes machine 
registers to the computation stack 
and returns to NEXT* It is not 
directly executable, but is a Forth 
re-entry point after machine code* 


This code sequence stores machine 
register contents over the topmost 
computation stack value and returns 
to NEXT* It is not directly exec¬ 
utable, but la a Forth re-entry point 
after machine code* 


QUERY 

Input 80 characters of text (or until 
a "return”) from the operators 
terminal* Text is positioned at the 
address contained in TIB with IN 
set to zero* 


QUIT LI 

Clear the return stack, stop compil¬ 
ation, and return control to the 
operators terminal* No message 
is given* 


R 

- addr U 

A user variable that contains a value 
Incremented by EMIT* The user may 
alter and examine OUT to control 
display formating. R# 


nl n2 - nl n2 nl LO 

Copy the second stack value, placing 
it as the new top. 


--- n 

Copy the top of the return stack to 
the computation stack* 


— addr 

A user variable which may contain 
the location of an editing cursor, 
or other file related function* 


U 
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SMUDGE 


/V 



addr blk 

f - 




The 

fig-FORTH 

standard 

disc 

rea 

d- 

writ 

e linkage 

• addr s 

pecif 

les 

the 

sour 

ce or des 

tina tion 

block 

buf 

f er, 

b lk 

is the se 

quential 

numb e 

r of 


the 

reference 

d block; 

and f 

is 

a 

flag 

for f-0 

write and 

f-1 

read 

• 

R/W 

determine 

s the loc 

at ion 

on 

mass 

s tor 

age, perf 

orms the 

read- 

writ 

e and 

perf 

orns any 

error che 

cking 

• 



SP! 


Used during word definition to toggle 
the "smudge bit” in a definitions' 
name field. This prevents an un¬ 
completed definition from being found 
during dictionary searches, until 
compiling is completed without error. 


A computer dependent proceedure to 
initialize the stack pointer from 
SO. 


K> 


no 


REPEAT 


- n LO 

Remove the top value from the return SP@ 
stack and leave it on the computation 
stack. See >R and R. 


— addr U 

A user variable containing the 
initial location of the return stack. 
Pronounced R-zero. See RPI 


addr n — (compiling) P,C2 
Used within a colon-definition in the 
form: 

BEGIN ... WHILE ... REPEAT 
At run-time, REPEAT forces an 
unconditional branch back to just 
after the corresponding BEGIN. 


SPACE 


SPACES 


- addr 

A computer dependent proceedure to 
return the address of the stack 
position to the top of the stack, 
as it was before SP@ was executed. 
(e*g. 1 2 SP@ @ . • • would 

type 221) 


LO 

Transmit an ascii blank to the output 
device. 


n - LO 

Transmit n ascii blanks to the output 
device. 


^OT 




^->D 


At comp lie-1lme, REPEAT compiles 
BRANCH and the offset from HERE to 
addr. n is used for error testing. 


nl n2 n3 —- n2 n3 nl LO 
Rotate the top three values on the 
stack, bringing the third to the top. 


A computer dependent proceedure to 
initialize the return stack pointer 
from user variable RO. 


n — d 

Sign extend a single number to form 
a double number. 


STATE 


SWAP 


TASK 


- addr L0,U 

A user variable contalng the compil¬ 
ation state. A non-zero value 
indicates compilation. The value 
itself may be implementation depend¬ 
ent. 


nl n2 — n2 nl LO 

Exchange the top two values on the 
s tack. 


A no-operation word which can mark 
the boundary between applications. 

By forgetting TASK and re-compiling, 
an application can be discarded in 
its entirety. 


So 


SCR 


* s 


IGN 


- addr I 

A user variable that contains the 
initial value for the stack pointer. 
Pronounced S-zero. See SP! 


- addr U 

A user variable containing the screen 
number most recently reference by 
LIST. 


d - 


negative. n 1 
number d is mi 
used between <# and #>. 


LO 


i? — it 

sign 

just 

before 

ric 

ou tpu 

t St 

ring 

ut 

buffer 

whe 

n n is 

dls 

carded 

, bu 

t double 

,tai 

ned • 

Must 

be 


THEN 


TIB 


TOGGLE 


TRAVERSE 


An alias for ENDIF. 


P, CO ,L0 


--- addr U 

A user variable containing the addr¬ 
ess of the terminal input buffer. 


addr b -— 

Complement the contents of addr by 
the bit pattern b. 


addrl n - addr2 

Move across the name field of a 
fig-FORTH variable length name field. 
addrl is the address of either the 
length byte or the last letter. 

If n«l, the motion is toward hi mem¬ 
ory; if n--l, the motion is toward 
low memory. The addr2 resulting is 
address of the other end of the name* 
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TRIAD 


TYPE 


U* 


U/ 


UNTIL 


UPDATE 


USE 


USER 


scr - 

Display on the selected output device 
the three screens which Include that 
numbered scr, begining with a screen 
evenly divisible by three. Output 
is suitable for source text records, 
and includes a reference line at the 
bottom taken from line 15 of screen*. 


VARIABLE E,LU 

A defining word used in the form: 
n VARIABLE cccc 

When VARIABLE is executed, it creates 
the definition cccc with its para¬ 
meter field initialized to n. When 
cccc is later executed, the address 
of its parameter field (containing n) 
is left on the stack, so that a fetch 
or store may access this location. 


addr count — 

Transmit count characters from addr 
to the selected output device. 


ul u2 - ud 

Leave the unsigned double number 
product of two unsigned numbers. 


VOC-LINK - addr U 

A user variable containing the addr¬ 
ess of a field in the definition of 
the most recently created vocabulary. 
All vocabulary names are linked by 
these fields to allow control for 
FORGETting thru multiple vocabularys. 


ud ul u2 u3 

Leave the unsigned remainder u2 and 
unsigned quotient u3 from the unsign¬ 
ed double dividend ud and unsigned 
divisor ul. 


f — (run-time) 
addr n — (compile) P,C2,L0 
Occurs within a colon-definition in 
the form: 

BEGIN ... UNTIL 

At run-time, UNTIL controls the cond¬ 
itional branch back to the corres¬ 
ponding BEGIN. If f is false, exec¬ 
ution returns to Just after BEGIN; 
if true, execution continues ahead. 

At compile-time, UNTIL compiles 
(OBRANCH) and an offset from HERE 
to addr. n is used for error tests. VLIST 


LO 

Marks the most recently referenced 
block (pointed to by PREV) as 

altered. The block will subsequently WARNING 
be transferred automatically to disc 
should its buffer be required for 
storage of a different block. 


— addr 

A variable containing the address of 
the block buffer to use next, as the 
least recently written. 


VOCABULARY E,L 

A defining word used in the form: 

VOCABULARY cccc 

to create a vocabulary definition 
cccc. Subsequent use of cccc will 
make it the CONTEXT vocabulary which 
is searched first by INTERPRET. The 
sequence "cccc DEFINITIONS” will 
also make cccc the CURRENT vocabulary 
into which new definitions are 
placed. 

In fig-FORTH, cccc will be so chained 
as to include all definitions of the 
vocabulary in which cccc is itself 
defined. All vocabularys ulltmately 
chain to Forth. By convention, 
vocabulary names are to be declared 
IMMEDIATE. See VOC-LINK. 


List the names of the definitions in 
the context vocabulary. "Break” will 
terminate the listing. 

- addr U 

A user variable containing a value 
controlling messages. If • 1 
disc is present, and screen * of 
drive 0 is the base location for 
messages. If ■ 0, no disc is present 
and messages will be presented by 
number. If ■» -1, execute (ABORT) for 
a user specified proceedure. 

See MESSAGE, ERROR. 


n —- LO WHILE 

A defining word used in the form: 
n USER cccc 

which creates a user variable cccc. 

The parameter field of cccc contains 
n as a fixed offset relative to 
the user pointer register UP for 
this user variable. When cccc is 
later executed, it places the sum of 
its offset and the user area base 
address on the stack as the storage 
address of that particular variable. 


f - (run-time) 

adl nl --- adl nl ad2 n2 P,C2 

Occurs in a colon-definition in the 
form: 

BEGIN ... WHILE (tp) ... REPEAT 
At run-time, WHILE selects condition¬ 
al execution based on boolean flag f. 
If f is true (non-zero), WHILE cont- 
intue9 execution of the true part 
thru to REPEAT, which then branches 
back to BEGIN. If f Is false (zero), 
execution skips to Just after REPEAT, 
exiting the structure. 


At compile time, WHILE emplaces 
(OBRANCH) and leaves ad2 of the res¬ 
erved offset. The stack values will 
be resolved by REPEAT. 
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WIDTH 


U 


WORD 


X 


XOR 


( 


^COMPILE] 


] 


FORTH 


— addr 

In fig-FORTH, a user variable cont¬ 
aining Che maximum number of letters 
saved In Che compilation of a 
definitions' name. It muse be 1 thru 
31, with a default value of 31* The 
name character counC and Its natural 
characters are saved, up to the 
value In WIDTH* The value may be 
changed at any tlae within the above 
1 imit s• 


c - LO 

Read the next text characters from 
the Input stream being Interpreted, 
until a delimiter c Is found, storing 
the packed character string beglnlng 
at the dictionary buffer HERE. WORD 
leaves the character count In the 
first byte, the characters, and ends 
with two or more blanks* Leading 
occurances of-c are ignored. If BLR 
Is zero, text is taken from the 
terminal input buffer, otherwise from 
the disc block stored in BLK• 

See BLK, IN. 


This is pseudonym for the "null" 
or dictionary entry for a name of 
one character of ascii null. It 
la the execution proceedure to term¬ 
inate Interpretation of a line of 
text from the terminal or within 
a disc buffer, as both buffers always 
have a null at the end. 


nl n2 —- xor Li 

Leave the bitwise logical excluslve- 
or of two values. 


P,L1 

Used in a colon-definition in form: 

: xxx [ words ] more $ 
Suspend compilation. The words after 
[ are executed, not compiled. This 
allows calculation or compilation 
exceptions before resuming compil¬ 
ation with ]. See LITERAL, ]. 


P.C 

Used in a colon-definition in form: 

: xxx [COMPILE] PORTH ; 
[COMPILE] will force the compilation 
of an immediate deflninition, 
that would otherwise execute 
during compilation. The above 
example will select the PORTH 
vocabulary when xxx executes, rather 
than at compile time. 


LI 

Resume compilation, to the completion 
of a colon-definition. See [• 
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flg-FORTH MODEL ********************** 


SCR # 3 

0 ********************** 


2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
1 2 
1 3 

14 

15 


. Through the courtesy of 


FORTH INTEREST GROUP 
P. 0. BOX 1105 
SAN CARLOS, CA. 94070 


KKbLASfi I 

WITH COMPILER SECURITY 
AND 

VARIABLE LENGTH NAMES 


RELEASE 1 


Further distribution must include the above notice* 


SCR # 4 

0 ( ERROR MESSAGES ) 

1 EMPTY STACK 

2 DICTIONARY FULL 

3 HAS INCORRECT ADDRESS MODE 

4 ISN'T UNIQUE 

5 

6 DISC RANGE ? 

7 FULL STACK 

8 DISC ERROR ! 

9 

10 
11 
12 

13 

14 

15 FORTH INTEREST GROUP MAY 1, 1979 


SCR # 5 

0 ( ERROR MESSAGES ) 

1 COMPILATION ONLY, USE IN DEFINITION 

2 EXECUTION ONLY 

3 CONDITIONALS NOT PAIRED 

4 DEFINITON NOT FINISHED 

5 IN PROTECTED DICTIONARY 

6 USE ONLY WHEN LOADING 

7 OFF CURRENT EDITING SCREEN 

8 DECLARE VOCABULARY 

9 

10 

11 

12 

13 

14 

15 


FORTH INTEREST GROUP 


MAY 1, 1979 






CODE LIT 
LABEL PUSH 
LABEL PUT 
LABEL NEXT 
HERE ' <CLIT> 1 
LABEL SETUP ( MOVE 
CODE EXECUTE 

CODE BRANCH 
CODE OBRANCH 
CODE (LOOP) 

CODE (+LOOP) 

CODE (DO) 

CODE I 
CODE DICIT 


CODE (FIND) 
CODE ENCLOSE 


( PUSH FOLLOWING LITERAL TO STACK *) 

( PUSH ACCUM AS HI-BYTE, ML STACK AS LO-BYTE *)" 

( REPLACE BOTTOM WITH ACCUM. AND ML STACK *)' 

( EXECUTE NEXT FORTH ADDRESS, MOVING IP *)' 
HERE 2+ , ( MAKE SILENT WORD *)' 

# ITEMS FROM STACK TO 'N' AREA OF Z-PAGE *)' 

( EXECUTE A WORD BY ITS CODE FIELD *)' 

( ADDRESS ON THE STACK *)' 

( ADJUST IP BY IN-LINE 16 BIT LITERAL *)' 

( IF BOT IS ZERO, BRANCH FROM LITERAL *)' 

( INCREMENT LOOP INDEX, LOOP UNTIL «> LIMIT *)' 

( INCREMENT INDEX BY STACK VALUE +/- *)' 

( MOVE TWO STACK ITEMS TO RETURN STACK *)' 

( COPY CURRENT LOOP INDEX TO STACK *)' 

( CONVERT ASCII CHAR-SECOND, WITH BASE-BOTTOM 
( IF OK RETURN DIGIT-SECOND, TRUE-BOTTOM; 

( OTHERWISE FALSE-BOTTOM. 

( HERE, NFA ... PFA, LEN BYTE, TRUE; ELSE FALSE 
( ENTER WITH ADDRESS-2, DELIM-1. RETURN WITH 
( ADDR-4, AND OFFSET TO FIRST CH-3, END WORD-2, NEXT CH-1 
CODE EMIT ( PRINT ASCII VALUE ON BOTTOM OF STACK 

CODE KEY ( ACCEPT ONE TERMINAL CHARACTER TO THE STACK 

CODF. 7TERMINAL ( 'BREAK' LEAVES 1 ON STACK; OTHERWISE 0 

CODE CP. ( EXECUTE CAR. RETURN, LINE FEED ON TERMINAL *)~ 

( WITHIN MEMORY; ENTER W/ FROM-3, TO-2, QUAH-1 *)] 

( 16 BIT MULTIPLICAND-2, 16 BIT MULTIPLIER-1 
( 32 BIT UNSIGNED PRODUCT: LO WORD-2, HI WORD-1 
( 31 BIT ,DIVIDEND-2, -3, 16 BIT DIVISOR-1 

( 16 BIT REMAINDER-2, 16 BIT QUOTIENT-1 

( LOGICAL BITWISE AND OF BOTTOM TWO ITEMS * )_ 
( LOGICAL BITWISE 'OR' OF BOTTOM TWO ITEMS *)_ 
( LOGICAL ' EXCLUSIVE-OR' OF BOTTOM TWO ITEMS *)_ 
( FETCH STACK POINTER TO STACK *)_ 
( LOAD SP FROM 'SO' *)_ 
( LOAD RP FROM RO *)_ 
( RESTORE IP REGISTER FROM RETURN STACK *)_ 
( FORCE EXIT OF DO-LOOP BY SETTING LIMIT *)_ 
TSX, R LDA, R 2+ STA, ( TO INDEX *)_ 

( MOVE FROM COMP. STACK TO RETURN STACK *)_ 
( MOVE FROM RETURN STACK TO COMP. STACK *)_ 
( COPY THE BOTTOM OF RETURN STACK TO COMP. STACK *)_ 
( REVERSE LOGICAL STATE OF BOTTOM OF STACK *)_ 
( LEAVE TRUE IF NEGATIVE; OTHERWISE FALSE *)_ 
( LEAVE THE SUM OF THE BOTTOM TWO STACK ITEMS *)_ 
( ADD TWO DOUBLE INTEGERS, LEAVING DOUBLE *)_ 
( TWOS COMPLEMENT OF BOTTOM SINGLE NUMBER *)_ 
( TWOS COMPLEMENT OF BOTTOM DOUBLE NUMBER *)_ 
( DUPLICATE SECOND ITEM AS NEW BOTTOM *)_ 
( DROP BOTTOM STACK ITEM *)_ 
( EXCHANGE BOTTOM AND SECOND ITEMS ON STACK *)_ 
( DUPLICATE BOTTOM ITEM ON STACK *)_ 
(.ADD SECOND TO MEMORY 16 BITS ADDRESSED BY BOTTOM *)_ 
( BYTE AT ADDRESS-2, BIT PATTERN-1 ... *)_ 
( REPLACE STACK ADDRESS WITH 16 BIT *) 


CODE CMOVE 
CODE U* 

CODE U/ 

CODE AND 
CODE OR 
CODE XOR 
CODE SP@ 

CODE SP1 
CODE RP1 
CODE ;S 
CODE LEAVE 
XSAVE STX, 
CODE >R 
CODE R> 

CODE R 
CODE 0- 
CODE 0< 

CODE + 

CODE D+ 

CODE MINUS 
CODE DMINUS 
CODE OVER 
CODE DROP 
CODE SWAP 
CODE DUP 
CODE +! 

CODE TOGGLE 
CODE @ 


*). 

*) 

*). 

*>. 

*) 

*) 

*). 

*). 

*). 


*) 

*) 

*) 

*) 


1 
4 
6 
8 
1 

4 

9 

10 
1 
6 
1 
8 
2 
9 
1 
o 

4 » 

3 
1 
1 
2 

5 

7 

9 
11 
1 
1 
2 
1 
2 
2 

6 

10 
1 26 
5 26 

8 26 
12 26 

1 27 

2 27 
5 27 
8 27 
11 27 
2 28 

28 
29 
29 
29 
29 


13 

13 

13 

13 

14 
14 

14 
14 

15 
1 5 

16 
16 
17 

17 

18 
18 
18 

19 

20 
20 
21 
21 
21 

21 

22 

23 

23 

24 

24 

25 
25 

25 


6 

1 

4 

9 

12 


BOT X) LDA, PHA, ( CONTENTS OF THAT ADDRESS *)_ 
CODE C@ ( REPLACE STACK ADDRESS WITH POINTED 8 BIT BYTE *)_ 
CODE ! ( STORE SECOND AT 16 BITS ADDRESSED BY BOTTOM *)_ 


1 30 
4 30 
7 30 

11 30 

2 31 

31 

32 
32 
32 
32 
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CODE 

C! 


( STORE 

SECOND AT BYTE ADDRESSED BY BOTTOM 

*) 

12 

32 

• • 



( CREATE 

NEW 

COLON-DEFINITION UNTIL 

*) 

2 

33 

• • 

• 1 







( 

TERMINATE COLON-DEFINITION 

*) 

9 

33 

: CONSTANT 



( 

WORD 

WHICH LATER CREATES CONSTANTS 

*) 

1 

34 

: VARIABLE 



( 

WORD 

WHICH LATER CREATES VARIABLES 

*)_ 

5 

34 

: USER 







( CREATE USER VARIABLE 

*)_ 

10 

34 

20 

CONSTANT BL 






CR ( ASCII BLANK 

*) 

4 

35 

40 

CONSTANT C/L 






( TEXT CHARACTERS PER LINE 

*) 

5 

35 

3BE0 

CONSTANT 

FIRST 



( FIRST BYTE RESERVED FOR BUFFERS 

*) 

7 

35 

4000 

CONSTANT 

LIMIT 





( JUST BEYOND TOP OF RAM 

*)_ 

8 

35 

80 

CONSTANT 

B/BUF 





( BYTES PER DISC BUFFER 

*) 

9 

35 

8 

CONSTANT 

B/SCR 


( 

BLOCKS PER SCREEN * 1024 B/BUF / 

*) 

10 

35 

: +0RIGIN 

LITERAL 

+ ; 


( 

LEAVES 

ADDRESS RELATIVE TO ORIGIN 

*) 

13 

35 

HEX 


( 

0 THRU 

5 

RESERVED, REFERENCED TO $00A0 

*>_ 

1 

36 

( 06 

USER 

SO ) 




( 

TOP 

OF EMPTY COMPUTATION STACK 

*) 

2 

36 

( 08 

USER 

RO ) 






( TOP OF EMPTY RETURN STACK 

*) 

3 

36 

OA 

USER 

TIB 






( TERMINAL INPUT BUFFER 

*) 

4 

36 

OC 

USER 

WIDTH 






( MAXIMUM NAME FIELD WIDTH 

*)_ 

5 

36 

OE 

USER 

WARNING 






( CONTROL WARNING MODES 

*) 

6 

36 

10 

USER 

FENCE 





CR 

( BARRIER FOR FORGETTING 

*) 

7 

36 

12 

USER 

DP 






( DICTIONARY POINTER 

*) 

8 

36 

14 

USER 

VOC-LINK 





( TO NEWEST VOCABULARY 

*)_ 

9 

36 

16 

USER 

BLK 






( INTERPRETATION BLOCK 

*) 

10 

36 

18 

USER 

IN 






( OFFSET INTO SOURCE TEXT 

*) 

11 

36 

1A 

USER 

OUT 






( DISPLAY CURSOR POSITION 

*) 

12 

36 

1C 

USER 

SCR 






( EDITING SCREEN 

*) 

13 

36 

IE 

USER 

OFFSET 






( POSSIBLY TO OTHER DRIVES 

*) 

1 

37 

20 

USER 

CONTEXT 






( VOCABULARY FIRST SEARCHED 

*>_ 

2 

37 

22 

USER 

CURRENT 




( 

SEARCHED SECOND, COMPILED INTO 

*)_ 

3 

37 

24 

USER 

STATE 






( COMPILATION STATE 

*)_ 

4 

37 

26 

USER 

BASE 




CR 


( FOR NUMERIC INPUT-OUTPUT 

*) 

5 

37 

28 

USER 

DPL 






( DECIMAL POINT LOCATION 

*) 

6 

37 

2A 

USER 

FLD 






( OUTPUT FIELD WIDTH 

*) 

7 

37 

2C 

USER 

CSP 






( CHECK STACK POSITION 

*)_ 

8 

37 

2E 

USER 

R# 






( EDITING CURSOR POSITION 

*) 

9 

37 

30 

USER 

HLD 

( 

POINTS 

TO 

LAST CHARACTER HELD IN PAD 

*) 

10 

37 

s 1+ 


1 + » 




( 

INCREMENT STACK NUMBER BY ONE 

*) 

1 

38 

: 2+ 


2 + ; 




C 

INCREMENT STACK NUMBER BY TWO 

*) 

2 

38 

: HERE 

DP ' 9 ; 



( 

FETCH 

NEXT FREE ADDRESS IN DICT. 

*) 

3 

38 

: ALLOT 

DP +1 ; 






( MOVE DICT. POINTER AHEAD 

*) 

4 

38 

• 9 

HERE 

! 2 

ALLOT 


• 

9 

CR 

( ENTER STACK NUMBER TO DICT. 

*) 

5 

38 

: C, 

HERE C! 1 

ALLOT 

• 

» 


( ENTER STACK BYTE TO DICT. 

*) 

6 

38 

: - 

MINUS + ; 






( LEAVE DIFF. SEC - BOTTOM 

*) 

7 

38 

: - 

- 0 

* > 






( LEAVE BOOLEAN OF EQUALITY 

*) 

8 

38 

: < 

- 0< ; 





( 

LEAVE BOOLEAN OF SEC < BOT 

*) 

9 

38 

: > 

SWAP 

< ; 





( 

LEAVE BOOLEAN OF SEC > BOT 

*) 

10 

38 

: ROT >R 

SWAP 

R> SWAP 

1 


( ROTATE THIRD TO BOTTOM 

*) 

11 

38 

: SPACE 

BL EMIT ; 


CR 


( PRINT BLANK ON TERMINAL 

*) 

12 

38 

: -DUP 

DUP IF 

DUP 


ENDIF 

• 

9 

( DUPLICATE NON-ZERO 

*) 

13 

38 

: TRAVERSE 







( MOVE ACROSS NAME FIELD 

*)_ 

1 

39 


( 

ADDRESS 

-2, DIRECTION-1 

, I.E. -1-R TO L, +1-L TO R 

*) 

2 

39 

: LATEST 

CURRENT 

9 


@ 

• 

9 

( NFA OF LATEST WORD 

*) 

6 

39 

: LFA 4 

> 





< 

CONVERT A WORDS PFA TO LFA 

*) 

11 

39 

: CFA 2 

M • 

9 

CR 




< 

CONVERT A WORDS PFA TO CFA 

*) 

12 

39 

: NFA 5 

- -1 

TRAVERSE 

9 

( 

CONVERT A WORDS PFA TO NFA 

*) 

13 

39 

: PFA 

1 TRAVERSE 5 


+ 

* 

( 

CONVERT A WORDS NFA TO PFA 

*) 

14 

39 

s !CSP 

SP@ CSP ! 

9 



( SAVE STACK POSITION IN 'CSP' 

*) 

1 

40 
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?ERROR 
? COMP 
?EXEC 
7PAIRS 
?CSP 
’LOADING 
COMPILE 
[ 0 

] CO 

SMUDGE 
HEX 

DECIMAL 
(;CODE) 

; CODE 
<BUILDS 
DOES> 


( BOOLEAN-2, ERROR TYPE-1, WARN FOR TRUE *)_ 
STATE @ 0-11 ?ERROR ; ( ERROR IF NOT COMPILING *)" 

STATE @ 12 TERROR ; ( ERROR IF NOT EXECUTING *)‘ 

- 13 ’ERROR ; ( VERIFY STACK VALUES ARE PAIRED *)' 

SP@ CSP <§ - 14 TERROR ; ( VERIFY STACK POSITION *)" 

( VERIFY LOADING FROM DISC *)' 
( COMPILE THE EXECUTION ADDRESS FOLLOWING *)' 


STATE 1 
STATE ! 

LATEST 
10 BASE 
OA BASE 


IMMEDIATE 


20 

1 

1 


TOGGLE 


COUNT 
TYPE 

-TRAILING 

(.") 

." 2 2 

EXPECT 

X BLK @ 

FILL 

ERASE 

BLANKS 

HOLD 

PAD 


( STOP COMPILATION *) 
( ENTER COMPILATION STATE *) 
( ALTER LATEST WORD NAME *) 
( MAKE HEX THE IN-OUT BASE 
( MAKE DECIMAL THE IN-OUT BASE *) 
( WRITE CODE FIELD POINTING TO CALLING ADDRESS *) 
( TERMINATE A NEW DEFINING WORD *) 
CONSTANT ; ( CREATE HEADER FOR 'DOES>' WORD *) 

( REWRITE PFA WITH CALLING HI-LEVEL ADDRESS *) 
( REWRITE CFA WITH 'DOES>' CODE *) 
P 1+ SWAP CO ; ( LEAVE TEXT ADDR. CHAR. COUNT *) 

( TYPE STRING FROM ADDRESS-2, CHAR.COUNT-1 *) 
( ADJUST CHAR. COUNT TO DROP TRAILING BLANKS *) 
( TYPE IN-LINE STRING, ADJUSTING RETURN 
STATE 0 ( COMPILE OR PRINT QUOTED STRING *) 

( TERMINAL INPUT MEMORY-2, CHAR LIMIT-1 *) 

( END-OF-TEXT IS NULL 
( FILL MEMORY BEGIN-3, QUAN-2, BYTE-1 
( FILL MEMORY WITH ZEROS BEGIN-2, QUAN-1 *) 
( FILL WITH BLANKS BEGIN-2, QUAN-1 *) 
( HOLD CHARACTER IN PAD 


)_ 


). 


*) 

*). 


HERE 44 + 


WORD 
(NUMBER) 
NUMBER 
-FIND 
(ABORT) 
ERROR 

WARNING 
ID. 

CREATE 

[COMPILE] 
LITERAL 
DLITERAL 
T STACK 
INTERPRET 
IMMEDIATE 
VOCABULARY 
VOCABULARY 


*) 

*) 


3 40 

6 40 

8 40 

10 40 

12 40 
14 40 
2 41 

5 41 

7 41 

9 41 

11 41 

13 41 
2 42 

42 

43 
43 
43 


6 

2 

4 

5 


). 

( PAD IS 68 BYTES ABOVE HERE *)_ 


( DOWNWARD HAS NUMERIC OUTPUTS; UPWARD MAY HOLD TEXT *)_ 


( ENTER WITH DELIMITER, MOVE STRING TO 'HERE' 

( CONVERT DOUBLE NUMBER, LEAVING UNCONV. ADDR. 

( ENTER W/ STRING ADDR. LEAVE DOUBLE NUMBER *)_ 
( RETURN PFA-3, LEN BYTE-2, TRUE-1; ELSE FALSE *)_ 
GAP ( ABORT ) ; ( USER ALTERABLE ERROR ABORT *)_ 

( WARNING: -1-ABORT, O-NO DISC, 1-DISC *)_ 
@ 0< ( PRINT TEXT LINE REL TO SCR #4 *)_ 

( PRINT NAME FIELD FROM ITS HEADER ADDRESS *)_ 
( A SMUDGED CODE HEADER TO PARAM FIELD *)_ 
( WARNING IF DUPLICATING A CURRENT NAME *)_ 
( FORCE COMPILATION OF AN IMMEDIATE WORD *)_ 
( IF COMPILING, CREATE LITERAL *)_ 
( IF COMPILING, CREATE DOUBLE LITERAL *)_ 
( QUESTION UPON OVER OR UNDERFLOW OF STACK *)_ 
( INTERPRET OR COMPILE SOURCE TEXT INPUT WORDS *) 

( TOGGLE PREC. BIT OF LATEST CURRENT WORD 
( CREATE VOCAB WITH 'V-HEAD' AT VOC INTERSECT. 


FORTH 


: DEFINITIONS 


: ( 


: QUIT 


: ABORT 


CODE COLD 


CODE S->D 


: +- 0< IF 

MINUS 

: DH— 


: ABS DUP 

+- 

FORTH INTEREST 

GROUP 


1 44 

2 44 

5 44 
8 44 

12 44 
2 45 

11 45 
1 46 
4 46 

7 46 

10 46 

13 46 

14 46 
1 47 

1 48 

6 48 

12 48 

2 49 
49 
49 

49 

50 

50 

51 
51 

8 51 

13 51 
2 52 

1 53 
4 53 

9 53 

11 53 

14 53 

2 54 
54 


*) 

*). 

IMMEDIATE ( THE TRUNK VOCABULARY *)_ 

( SET THE CONTEXT ALSO AS CURRENT VOCAB *). 

( SKIP INPUT TEXT UNTIL RIGHT PARENTHESIS *). 

( RESTART, INTERPRET FROM TERMINAL *). 

( WARM RESTART, INCLUDING REGISTERS *)_ 7 
( COLD START, INITIALIZING USER AREA *)_ 1 55 
( EXTEND SINGLE INTEGER TO DOUBLE *)_ 1 56 
ENDIF ; ( APPLY SIGN TO NUMBER BENEATH *)_ 4 

( APPLY SIGN TO DOUBLE NUMBER BENEATH *)_ 6 
; ( LEAVE ABSOLUTE VALUE *)_ 9 

MAY 1, 1979 


56 

56 

56 
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DABS 

MIN 

MAX 

M* 

M/ 

* 

/MOD 

/ 

MOD 
* / MOD 


DUP D+- 


( LEAVE SMALLER OF TWO NUMBERS 
( LEAVE LARGET OF TWO NUMBERS 


U* 

>R 
/MOD 
/MOD 


DROP 

S->D 


SWAP 

DROP 


( FROM SIGNED DOUBLE-3-2, SIGNED DIVISOR-1 * 
LEAVE SIGNED REMAINDER-2, SIGNED QUOTIENT-1 
. ( SIGNED PRODUCT 

( LEAVE REM-2, QUOT-1 
( LEAVE QUOTIENT 


R> M/ 
DROP 


CR 


>R M* R> 

*/MOD SWAP 


( TAKE RATION OF THREE NUMBERS, LEAVING 
M/ ; ( REM-2, QUOTIENT-1 

: */ */MOD SWAP DROP ; ( LEAVE RATIO OF THREE NUMBS 

: M/MOD ( DOUBLE, SINGLE DIVISOR ... REMAINDER, DOUBLE 

FIRST VARIABLE USE ( NEXT BUFFER TO USE, STALEST 

FIRST VARIABLE PREV ( MOST RECENTLY REFERENCED BUFFER 

: +BUF ( ADVANCE ADDRESS-1 TO NEXT BUFFER. RETURNS FALSE 

84 ( I.E. B/BUF+4 ) + DUP LIMIT “ ( IF AT PREV 

UPDATE ( MARK THE BUFFER POINTED TO BY PREV AS ALTERED 

EMPTY-BUFFERS ( CLEAR BLOCK BUFFERS; DON'T WRITE TO DISC 


DRO 0 

DR1 07D0 

BUFFER 

BLOCK 

(LINE) 

.LINE 

MESSAGE 

LOAD 


OFFSET 

OFFSET 


! 


— > 


( SELECT DRIVE #0 
( SELECT DRIVE #1 


( LINE#, SCR#, 


( LINE#, SCR#, 


CONSTANT 

CONSTANT 


— > 

6900 

6901 
: #HL 

CODE D/CHAR 
S ?DISC 

1 D/CHAR 


DATA ( CONTROLLER PORT 

STATUS ( CONTROLLER PORT 

( CONVERT DECIMAL DIGIT FOR DISC CONTROLLER 
( TEST CHAR-1. EXIT TEST BOOL-2, NEW CHAR-1 
( UPON NAK SHOW ERR MSG, QUIT._ ABSORBS TILL 
>R 0- 


CODE BLOCK-WRITE ( SEND TO DISC FROM ADDRESS-2, COUNT-1 

2 # LDA, SETUP JSR, < WITH E0T AT END 

CODE BLOCK-READ ( BUF.ADDR-1. EXIT AT 128 CHAR OR CONTROL 

( C - I TO READ, 0 TO WRITE 
. R / w ( READ/WRITE DISC BLOCK 


FORGET 

\ 

BACK 
D.R 
D. 

.R 
• 

? 

LIST 
INDEX 
TRIAD 
VL 1ST 
CREATE 


HERE - , 

( DOUBLE : 
0 D.R SPACE 
>R S->D R> 
S->D D. ; 

9 • ; 


d.’r 


( PRINT FIRST LINE OF EACH SCREEN FROM-2, TO-1 *)_ 


MON 


*)_ 

10 

56 

*> 

12 

56 

*)_ 

14 

56 

*)_ 

1 

57 

)_ : 

3 5 

7 

*)_ 

4 

57 

*)_ 

7 

57 

*) 

8 

57 

*> 

9 

57 

*) 

10 

57 

*) 

11 

57 

*)_ 

12 

57 

*)_ 

13 

57 

*) 

14 

57 

*) 

1 

58 

*) 

2 

58 

*> 

4 

58 

*) 

5 

58 

*) 

8 

58 

*)_ 

11 

58 

*)_ 

14 

58 

*> 

15 

58 

*> 

1 

59 

*) 

1 

60 

*)_ 

2 

61 

*) 

6 

61 

*) 

9 

61 

*)_ 

2 

62 

*) 

6 

62 

*)_ 

1 

65 

*)_ 

2 

65 

*) 

5 

65 

*)_ 

1 

66 

*)_ 

7 

66 

*) 

8 

66 

*) 

1 

67 

*)_ 

2 

67 

)_ 

2 

68 

*)_ 

3 

69 

*) 

4 

69 

*) 

5 

69 

*)_ 

2 

72 

*) 

6 

72 

*)_ 

11 

72 

*) 

1 

73 

*) 

1 

76 

*)_ 

5 

76 

*) 

7 

76 

*)_ 

9 

76 

*) 

11 

76 

*)_ 

2 

77 

*)_ 

7 

77 

*) 

12 

77 

*) 

2 

78 

*) 

3 

79 


OK 









FORTH MODEL IMPLEMENTATION 


This model is presented for the serious student as 
both an example of a large FORTH program and as a complete 
nucleus of FORTH. That is, it is sufficient to run and 
to continue to compile itself. 

When compiled, the model requires about 2800 bytes of 
memory. An expanded version with formatted output and 
compiling aids would require about 4000 bytes. A 'full* 
implementation usually requires 6000 to 7000 bytes 
(including editor, assembler, and disk interface). 

The following information consists of word definitions 
you will find in the CODE definitions. These are dependent 
on the micro-computer used, these being for the MOS Technology 
5602. 


Note that the notation in the CODE definitions is 
•reverse Polish 1 as is* all of FORTH. This means that the 
operand comes before the operator. Each equivalent of a 
•line' of assembly code has a symbolic operand, then 
any address mode modifier, and finally the op-code mnemonic. 
(Note that words that generate actual machine code end in 


.e. 

LDA, ). 

Therefor: 



BOT 

1+ LDA, 

in 

FORTH 

would be: 

LDA 

1,X 

in 

usual 

assembler. 


And also: 

POINTER )Y STA, in FORTH would be: 
STA (POINTER),Y in usual assembler. 


It takes a bit of getting used to, but reverse Polish 
assembler allows full use of FORTH in evaluation of 
expressions and the easy generation of the equivalent of macros. 

GLOSSARY OF FORTH MODEL 

IP address of the Interpretive Pointer in zero-page. 

W address of the code field pointer in zero-page. 

N address of an 8 byte scratch area in zero-page. 

XSAVE address of a temporary register for X in zero-page. 

UP address of the User Pointer In zero-page. 

IS" 


I 









GLOSSARY OF FORTH MODEL, cont. 


.A specify accumulator address mode. 

# specify immediate mode for machine byte literals. 

»X ,Y specify memory indexed address mode. 

X) )Y specify indirect memory reference by a zero-page register. 

BOT address of low byte of a 16-bit stack item with 

,X address mode. X register locates computation 
stack in zero-page, relative to address $0000. 

BOT 1+ address of the^igh byte of the bottom stack item, 
with ,X mode preset. 

SEC and SEC 1+ address the second stack item as for BOT. 

TSX, move the return stack pointer (which is located in 

the CPU machine stack in page-one) to X register. 

R address of low byte of return stack with ,X mode preset. 

R n + address of the n-th byte of the return stack with ,X 
mode preset. Note that the low byte is at low 
memory, so 1+ gets the high byte, and 3 + gets 
the high byte of the second item of return stack. 

PUT address of routine to replace the present computation 
stack high byte from accumulator, and put from 
the machine stack one byte which replaces the 
present low stack byte; continue on to NEXT. 

PUSH address of routine to repeat PUT but creating a new 
bottom item on the computation stack. 

PUSHOA PUTOA address of routine to place the accumulator 

at the low stack byte, with the high byte zero. 

PUTOA over-writes, while PUSHOA creates new item. 

POP POPTWO address of routine to remove one or two 16-bit 
items from computation stack. 

BINARY address of routine to pop one item and PUT the accumulator 
(high) and ML stack (low) over what was second. 

SETUP address of a routine to move 16-bit items to zero-page. 
Item quantity is in accumulator. 

NEXT address of the inner-interpreter, to which all 
code routines must return. NEXT fetches 
indirectly referred to IP the next compiled 
FORTH word address. It then jumps indirectly 
to pointed machine code. 



SCR # 6 

0 ( INPUT-OUTPUT, TIM WFR-780519 ) 

1 CODE EMIT XSAVE STX, BOT 1+ LDA, 7F # AND, 

2 72C6 JSR, XSAVE LDX, POP JMP, 

3 CODE KEY XSAVE STX, BEGIN, BEGIN, 8 # LDX, 

4 BEGIN, 6E02 LDA, .A LSR, CS END, 7320 JSR, 

5 BEGIN, 7 3 ID JSR, 0 X) CMP, 0 X) CMP, 0 X) CMP, 

6 OX) CMP, 0 X) CMP, 6E02 LDA, .A LSR, PHP, TYA, 

7 .A LSR, PLP, CS IF, 80 # ORA, THEN, TAY, DEX, 

8 0- END, 7 3 ID JSR, FF P EOR, 7F # AND, 0- NOT END, 

9 7F P CMP, 0- NOT END, XSAVE LDX, PUSHOA JMP, 

10 CODE CR XSAVE STX, 728A JSR, XSAVE LDX, NEXT JMP, 

1 1 

12 CODE ’TERMINAL 1 P LDA, 6E02 BIT, 0- NOT IF, 

13 BEGIN, 73ID JSR, 6E02 BIT, 0- END, INY, THEN, 

14 TYA, PUSHOA JMP, 

15 DECIMAL ;S 


SCR P 7 

0 ( INPUT-OUTPUT, APPLE WFR-780730 ) 

1 CODE HOME FC58 JSR, NEXT JMP, 

2 CODE SCROLL FC70 JSR, NEXT JMP, 

3 

4 HERE ' KEY 2 - ! ( POINT KEY TO HERE ) 

5 FDOC JSR, 7F P AND, PUSHOA JMP, 

6 HERE ' EMIT 2 - ! ( POINT EMIT TO HERE ) 

7 BOT 1+ LDA, 80 # ORA, FDED JSR, POP JMP, 

8 HERE ' CR 2 - ! ( POINT CR TO HERE ) 

9 FD8E JSR, NEXT JMP, 

10 HERE ' 7TERMINAL 2 - ! ( POINT ?TERM TO HERE ) 

11 C000 BIT, 0< 

12 IF, BEGIN, C010 BIT, C000 BIT, 0< NOT END, INY, 

13 THEN, TYA, PUSHOA JMP, 

14 

15 DECIMAL ;S 


SCR P 8 

0 ( INPUT-OUTPUT, SYM-1 

1 HEX 

2 CODE KEY 8A58 JSR, 7F P AND, PUSHOA JMP, 

3 

4 CODE EMIT BOT 1+ LDA, 8A47 JSR, POP JMP, 

5 

6 CODE CR 834D JSR, NEXT JMP, 

7 

8 CODE 7TERMINAL ( BREAK TEST FOR ANY KEY ) 

9 8B3C JSR, CS 

10 IF, BEGIN, 8B3C JSR, CS NOT END, INY, 

11 TYA, PUSHOA JMP, 

12 

13 

14 

15 DECIMAL ;S 

FORTH INTEREST GROUP MAY l » 1979 

^7 


WFR-781015 ) 


THEN, 


I 


I 




SCR 

# 12 





0 

( COLD 

AND 

WARM ENTRY, USER PARAMETERS 


1 

ASSEMBLER 

OBJECT 

MEM HEX 


2 

NOP, 

HERE 

JMP , 

( WORD ALIGNED VECTOR TO COLD 

) 

3 

NOP, 

HERE 

JMP, 

( WORD ALIGNED VECTOR TO WARM 

) 

4 

0000 , 

0001 , ( 

CPU, AND REVISION PARAMETERS 

) 

5 

0000 

9 

( 

TOPMOST WORD IN FORTH VOCABULARY 

6 

7F 

9 

( 

BACKSPACE CHARACTER ) 


7 

3BA0 

t 

( 

INITIAL USER AREA ) 


8 

009E 

9 

( 

INITIAL TOP OF STACK ) 


9 

01FF 

9 

( 

INITIAL TOP OF RETURN STACK ) 


10 

0100 

9 

( 

TERMINAL INPUT BUFFER ) 


1 1 

00 IF 

9 

( 

INITIAL NAME FIELD WIDTH ) 


12 

0001 

9 

( 

INITIAL WARNING - 1 ) 


13 

0200 

9 

( 

INITIAL FENCE ) 


14 

0000 

9 

< 

COLD START VALUE FOR DP ) 


15 

0000 

9 

( 

COLD START VALUE FOR VOC-LINK 

) 

SCR 

# 13 






WFR-79APR29 ) 


— > 


0 ( START OF NUCLEUS, LIT, PUSH, PUT, NEXT WFR-78DEC26 ) 

1 CODE LIT ( PUSH FOLLOWING LITERAL TO STACK *) 

2 IP )Y LDA, PHA, IP INC, 0- IF, IP 1+ INC, THEN, 

3 I? )Y LDA, IP INC, 0- IF,' IP 1+ INC, THEN, 

4 LABEL PUSH ( PUSH ACCUM AS HI-BYTE, ML STACK AS LO-BYTE *) 

5 DEX, DEX, 

6 LABEL PUT ( REPLACE BOTTOM WITH ACCUM. AND ML STACK *) 

7 BOT 1+ STA, PLA, BOT STA, 

8 LABEL NEXT ( EXECUTE NEXT FORTH ADDRESS, MOVING IP *) 

9 1 # LDY, IP )Y LDA, W 1+ STA, ( FETCH CODE ADDRESS ) 


10 


DEY, IP 

)Y LDA, W STA, 

1 1 

CLC 

, IP LDA, 

2 # ADC, IP STA, 

12 

CS 

IF, IP 1+ 

INC, THEN, 

1 3 

14 

15 —> 

W 1 

- JMP, 

( JUMP INDIR. VIA W 


( MOVE IP AHEAD ) 


SCR # 14 

0 ( SETUP WFR-790225 ) 

1 HERE 2+ , ( MAKE SILENT WORD *) 

2 IP )Y LDA, PHA, TYA, 'T LIT OB + 0- NOT END, 

3 

4 LABEL SETUP ( MOVE # ITEMS FROM STACK TO 'N' AREA OF Z-PAGE *) 

5 .A ASL, N 1 - STA, 

6 BEGIN, BOT LDA, N ,Y STA, INX, INY, 

7 N 1 - CPY, 0- END, 0 # LDY, RTS, 

8 

9 CODE EXECUTE ( EXECUTE A WORD BY ITS CODE FIELD *) 

10 ( ADDRESS ON THE STACK *) 

11 BOT LDA, W STA, BOT 1+ LDA, W 1+ STA, 

12 INX, INX, W 1 - JMP, 

13 

14 

15 —> 


FORTH INTEREST GROUP 
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SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


# 15 

( BRANCH, OBRANCH 
CODE BRANCH 

CLC, IP )Y LDA, 
INY, IP )Y LDA, 


W/16-BIT OFFSET WFR-79APR0I ) 

( ADJUST IP BY IN-LINE 16 BIT LITERAL *) 

IP ADC, PHA, 

IP 1+ ADC, IP 1+ STA, 

PLA, IP STA, NEXT 2+ JHP, 


CODE OBRANCH ( IF BOT IS ZERO, BRANCH FROM LITERAL *) 

INX, INX, FE ,X LDA, FF ,X ORA, 

' BRANCH 0- NOT END, ( USE 'BRANCH' FOR FALSE ) 

LABEL BUMP: ( TRUE JUST MOVES IP 2 BYTES *) 

CLC, IP LDA, 2 # ADC, IP STA, 

CS IF, IP 1+ INC, THEN, NEXT JMP, 


— > 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
12 
1 3 
14 
1 5 


# 16 

( LOOP CONTROL WFR-79MAR20 ) 

CODE (LOOP) ( INCREMENT LOOP INDEX, LOOP UNTIL -> LIMIT *) 

XSAVE STX, TSX, R INC, 0- IF, R 1+ INC, THEN, 

LABEL LI: CLC, R 2+ LDA, R SBC, R 3 + LDA, R 1+ SBC, 
LABEL L2: XSAVE LDX, ( LIMIT-INDEX-1 ) 

.A ASL, ' BRANCH CS END, ( BRANCH UNTIL D7 SIGN-1 ) 

PLA, PLA, PLA, PLA, BUMP: JMP, ( ELSE EXIT LOOP ) 


CODE (+LOOP) ( INCREMENT INDEX BY STACK VALUE +/- *) 

INX, INX, XSAVE STX, ( POP INCREMENT ) 

FF ,X LDA, PHA, PHA, FE ,X LDA, TSX, INX, INX, 

CLC, R ADC, R STA, PLA, R 1 + ADC, R 1 + STA, 

PLA, LI: 0< END, ( AS FOR POSITIVE INCREMENT ) 

CLC, R LDA, R 2+ SBC, ( INDEX-LIMIT-1 ) 

R 1+ LDA, R 3 + SBC, L2: JMP, 


SCR 

0 

1 


t 17 
( (DO- 


WFR-79MAR30 ) 


2 

CODE (DO) 



( MOVE 

TWO 

3 

SEC 1 + 

LDA, 

PHA, 

SEC LDA, 

4 

BOT 1 + 

LDA, 

PHA, 

BOT LDA, 

5 



* 



6 

LABEL POPTWO 

INX, 

INX, 


7 

LABEL POP 


INX, 

INX, 

NEXT 

8 






9 

CODE I 



( 

COPY 

10 




( 

THIS 

11 






12 

— > 






PHA, 

PHA, 


13 

14 

15 


FORTH INTEREST GROUP 
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SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1 2 

13 

14 

15 


# 18 

( DIGIT 
CODE DIGIT 


SEC, SEC LDA, 
0< NOT IF, OA 


WFR-781202 ) 

( CONVERT ASCII CHAR-SECOND, WITH BASE-BOTTOM *) 
( IF OK RETURN DIGIT-SECOND, TRUE-BOTTOM; *) 
( OTHERWISE FALSE-BOTTOM. *) 

30 # SBC, 

CMP, ( ADJUST FOR ASCII LETTER ) 

0< NOT IF, SEC, 07 # SBC, OA # CMP, 

0< NOT IF, 

SWAP ( AT COMPILE TIME ) THEN, BOT CMP, ( TO BASE ) 

0< IF, SEC STA, 1 # LDA, 

PHA, TYA , PUT JMP, 

( STORE RESULT SECOND AND RETURN TRUE ) 
THEN, THEN, THEN, ( CONVERSION FAILED ) 

TYA, PHA, INX, INX, PUT JMP, ( LEAVE BOOLEAN FALSE ) 


— > 


SCR t 19 

0 ( FIND FOR VARIABLE LENGTH NAMES WFR-790225 ) 

1 CODE (FIND) ( HERE, NFA ... PFA, LEN BYTE, TRUE; ELSE FALSE *) 

2 2 # LDA, SETUP JSR, XSAVE STX, 

3 BEGIN, 0 f LDY, N )Y LDA, N 2+ )Y EOR, 3F # AND, 0- 

4 IF, ( GOOD ) BEGIN, INY, N )Y LDA, N 2+ )Y EOR, .A ASL, 0- 

5 IF, ( STILL GOOD ) SWAP CS ( LOOP TILL D7 SET ) 

6 END, XSAVE LDX, DEX, DEX, DEX, DEX, CLC, 

7 TYA, 5 # ADC, N ADC, SEC STA, 0 # LDY, 

8 TYA, N 1+ ADC, SEC 1+ STA, BOT 1+ STY, 

9 N )Y LDA, BOT STA, 1 # LDA, PHA, PUSH JMP, ( FALSE ) 

10 THEN, CS NOT ( AT LAST CHAR? ) IF, SWAP THEN, 

11 BEGIN, INY, N )Y LDA, 0< END, ( TO LAST CHAR ) 

12 THEN, INY, ( TO LINK ) N )Y LDA, TAX, INY, 

13 N )Y LDA, N 1+ STA, N STX, N ORA, ( 0 LINK ? ) 

14 0- END, ( LOOP FOR ANOTHER NAME ) 

15 XSAVE LDX, 0 # LDA, PHA, PUSH JMP, ( FALSE ) —> 


SCR # 20 

0 ( ENCLOSE WFR-780926 ) 

1 CODE ENCLOSE ( ENTER WITH ADDRESS-2, DELIM-1. RETURN WITH *) 

2 ( ADDR-4, AND OFFSET TO FIRST CH-3, END WORD-2, NEXT CH-1 *) 

3 2 # LDA, SETUP JSR, TXA, SEC, 8 # SBC, TAX, 

4 SEC 1+ STY, BOT 1+ STY, ( CLEAR HI BYTES ) DEY, 

5 BEGIN, INY, N 2+ )Y LDA, ( FETCH CHAR ) 

6 N CMP, 0- NOT END, ( STEP OVER LEADING DELIMITERS ) 

7 BOT 4 + STY, ( SAVE OFFSET TO FIRST CHAR ) 

8 BEGIN, N 2+ )Y LDA, 0- 

9 IF, ( NULL ) SEC STY, ( IN EW ) BOT STY, ( IN NC ) 

10 TYA, BOT 4 + CMP, 0- 

11 IF, ( Y-FC ) SEC INC, ( BUMP EW ) THEN, NEXT JMP, 

12 THEN, SEC STY, ( IN EW ) INY, N CMP, ( DELIM ? ) 

13 0- END, ( IS DELIM ) BOT STY, ( IN NC ) NEXT JMP, 

14 

15 —> 


FORTH INTEREST GROUP 


MAY 1, 1979 




SCR # 21 

0 ( TERMINAL VECTORS WFR-79MAR30 ) 

1 ( THESE WORDS ARE CREATED WITH NO EXECUTION CODE, YET. ) 

2 ( THEIR CODE FIELDS WILL BE FILLED WITH THE ADDRESS OF THEIR ) 

3 ( INSTALLATION SPECIFIC CODE. ) 

4 

5 CODE EMIT ( PRINT ASCII VALUE ON BOTTOM OF STACK *) 

6 

7 CODE KEY ( ACCEPT ONE TERMINAL CHARACTER TO THE STACK *) 

8 

9 CODE 7TERMINAL ( 'BREAK' LEAVES 1 ON STACK; OTHERWISE 0 *) 

10 

11 CODE CR ( EXECUTE CAR. RETURN, LINE FEED ON TERMINAL *) 

12 

13 — > 

14 

15 


SCR if 22 

0 ( CMOVE, WFR-79MAR20 ) 

1 CODE CMOVE ( WITHIN MEMORY; ENTER W/ FROM-3, TO-2, QUAN-1 *) 

2 3 # LDA, SETUP JSR, ( MOVE 3 ITEMS TO 'N' AREA ) 

3 BEGIN, BEGIN, N CPY, 0- ( DECREMENT BYTE COUNTER AT 'N' ) 

4 IF, N 1+ DEC, 0< ( EXIT WHEN DONE ) 

5 IF, NEXT JMP, THEN, THEN, 

6 N 4 + )Y LDA, N 2+ )Y STA, INY, 0- 

7 END, ( LOOP TILL Y WRAPS, 22 CYCLES/BYTE ) 

8 N 5 + INC, N 3 + INC, ( BUMP HI BYTES OF POINTERS ) 

9 JMP, ( BACK TO FIRST 'BEGIN' ) 

10 

11 ~ > 

12 

13 

14 

15 


SCR # 23 

0 ( U*, UNSIGNED MULTIPLY FOR 16 BITS RS-WFR-80AUG16 ) 

1 CODE U* ( 16 BIT MULTIPLICAND-2, 16 BIT MULTIPLIER-1 *) 

2 ( 32 BIT UNSIGNED PRODUCT: LO WORD-2, HI WORD-1 *) 

3 SEC LDA, N STA, SEC STY, 

4 SEC 1+ LDA, N 1+ STA, SEC 1+ STY, ( multiplicand to n ) 

5 10 # LDY, 

6 BEGIN, BOT 2+ ASL, BOT 3 + ROL, BOT ROL, BOT 1+ ROL, 

7 ( double product while sampling D15 of multiplier ) 

8 CS IF, ( set ) CLC, 

9 ( add multiplicand to partial product 32 bits ) 

10 N LDA, BOT 2 + ADC, BOT 2 + STA, 

11 N 1+ LDA, BOT 3 + ADC, BOT 3 + STA, 

12 CS IF, BOT INC, 0- IF, BOT 1+ INC, ENDIF, ENDIF, 

13 ENDIF, DEY, 0- ( corrected for carry bug ) 

14 UNTIL, NEXT JMP, C; 

15 —> 

FORTH INTEREST GROUP Aug 23, 1980 
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3 / 







SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


if 24 

( U/, UNSIGNED DIVIDE FOR 31 BITS WFR-79APR29 ) 

CODE U/ ( 31 BIT DIVIDEND-2, -3, 16 BIT DIVISOR-1 *) 

( 16 BIT REMAINDER-2, 16 BIT QUOTIENT-1 *) 

SEC 2 + LDA, SEC LDY, SEC 2 + STY, .A ASL, SEC STA 

SEC 3 + LDA, SEC 1+ LDY, SEC 3 + STY, .A ROL, SEC 1+ STA 

10 if LDA, N STA, 

BEGIN, SEC 2 + ROL, SEC 3 + ROL, SEC, 

SEC 2 + LDA, BOT SBC, TAY, 

SEC 3 + LDA, BOT 1+ SBC, 

CS IF, SEC 2+ STY, SEC 3 + STA, 

SEC ROL, SEC 1+ ROL, 

N DEC, 0- 
END, POP JMP, 

—> 


THEN, 


SCR 

0 

1 


if 25 

( LOGICALS 


WFR-79APR20 ) 


2 

CODE AND 



( LOGICAL 

BITWISE AND 

OF BOTTOM 

TWO 

ITEMS 

*) 

3 

BOT 

LDA, 

SEC 

AND, 

PHA, 





4 

s 

BOT 1+ 

LDA, 

SEC 

1+ AND, 

INX f INX, 

PUT JMP, 




J 

6 

CODE OR 


( 

LOGICAL 

BITWISE 0 OR' 

OF BOTTOM 

TWO 

ITEMS 

*> 

7 

BOT 

LDA, 

SEC 

ORA, 

PHA, 





8 

Q 

BOT 1+ 

LDA, 

SEC 

1 + ORA, 

INX, INX, 

PUT JMP, 




10 

CODE XOR 


( LOGICAL 'EXCLUSIVE-OR' 

OF BOTTOM 

TWO 

ITEMS 

*) 

1 1 

BOT 

LDA, 

SEC 

EOR, 

PHA, 





12 

BOT 1+ 

LDA, 

SEC 

1+ EOR, 

INX, INX, 

PUT JMP, 





13 

14 

15 


--> 


SCR t 26 

0 ( STACK INITIALIZATION 

1 CODE SP<? 

2 TXA, 


WFR-79MAR30 ) 
( FETCH STACK POINTER TO STACK *) 


3 

4 

5 

LABEL PUSHOA 

PHA, 

0 if 

LDA, 

PUSH JMP, 



CODE SP! 




( 

LOAD SP FROM 'SO' 

*) 

6 

7 

06 # LDY, 

UP ) Y 

LDA, 

TAX, 

NEXT JMP, 



/ 

8 

CODE RP! 





( LOAD RP FROM RO 

*) 

9 

XSAVE STX, 

08 if 

LDY, 

UP ) Y 

LDA, TAX, 

TXS , 


10 


XSAVE 

LDX, 

NEXT 

JMP, 




1 1 

12 CODE ;S < RESTORE IP REGISTER FROM RETURN STACK *) 

13 PLA, IP STA, PLA, IP 1+ STA, NEXT JMP, 

14 

15 — > 


FORTH INTEREST GROUP 


MAY 1 


1979 





SCR If 27 

0 ( RETURN STACK WORDS WFR-79MAR29 ) 

1 CODE LEAVE ( FORCE EXIT OF DO-LOOP BY SETTING LIMIT *) 

2 XSAVE STX, TSX, R LDA, R 2+ STA, ( TO INDEX *) 

3 R 1+ LDA, R 3 + STA, XSAVE LDX, NEXT JMP, 

4 

5 CODE >R ( MOVE FROM COMP. STACK TO RETURN STACK *) 


6 

7 

BOT 1 + 

LDA 

, PHA, 

BOT LDA, PHA, INX, INX, 

NEXT 

JMP , 

/ 

8 

CODE R> 



( MOVE FROM RETURN 

STACK TO 

COMP. 

STACK 

9 

DEX, 

DEX, 

PLA, 

BOT STA, PLA, BOT 

1+ STA, 

NEXT 

JMP, 

10 








11 

CODE R 

( 

COPY THE BOTTOM OF RETURN 

STACK TO 

COMP. 

STACK 

12 

XSAVE 

STX, 

TSX, 

R LDA, PHA, R 1+ 

LDA, 



1 3 

XSAVE 

LDX, 

PUSH 

JMP, 




14 

' R 

-2 

BYTE.IN 

I I 




15 

— > 







SCR 

it 28 








0 ( TESTS AND LOGICALS WFR-79MAR19 ) 

1 

2 CODE 0- ( REVERSE LOGICAL STATE OF BOTTOM OF STACK *) 

3 BOT LDA, BOT 1+ ORA, BOT 1+ STY, 

4 0- IF, INY, THEN, BOT STY, NEXT JMP, 

5 

6 CODE 0< ( LEAVE TRUE IF NEGATIVE; OTHERWISE FALSE *) 

7 BOT 1+ ASL, TYA, .A ROL, BOT 1+ STY, BOT STA, NEXT JMP, 

8 
9 

10 --> 

11 

12 

13 

14 

15 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


If 29 
( MATH 
CODE + 
CLC , 

CODE D+ 
CLC , 


BOT 

SEC 


BOT 
BOT 
BOT 
BOT 

CODE MINUS 


WFR-79MAR19 ) 

( LEAVE THE SUM OF THE BOTTOM TWO STACK ITEMS *) 
LDA, SEC ADC, SEC STA, BOT 1+ LDA, SEC 1+ ADC, 
1+ STA, INX, INX, NEXT JMP, 

( ADD TWO DOUBLE INTEGERS, LEAVING DOUBLE *) 

2 + LDA, BOT 6 + ADC, BOT 6 + STA, 

3 + LDA, BOT 7 + ADC, BOT 7 + STA, 

LDA, BOT 4 + ADC, BOT 4 + STA, 

1 + LDA, BOT 5 + ADC, BOT 5 + STA, POPTWO JMP, 

( TWOS COMPLEMENT OF BOTTOM SINGLE NUMBER *) 


10 

SEC, 

TYA, 

BOT 

SBC, 

BOT 

STA, 

11 


TYA, 

BOT 

1+ SBC, 

BOT 1 + 

STA, NEXT JMP, 

1 2 

CODE DMINUS 


( TWOS COMPLEMENT OF BOTTOM DOUBLE 

1 3 

SEC, 

TYA, 

BOT 

2 + SBC, 

BOT 2 

+ STA, 

1 4 


TYA, 

BOT 

3 + SBC, 

BOT 3 

+ STA, 

15 

1 

BYTE. 

IN 

MINUS JMP 

9 

— > 


FORTH INTEREST GROUP 


MAY 1, 1979 






SCR # 30 

0 ( STACK MANIPULATION WFR-79MAR29 ) 

1 CODE OVER ( DUPLICATE SECOND ITEM AS NEW BOTTOM *) 

2 SEC LDA, PHA, SEC 1+ LDA, PUSH JMP, 

3 

4 CODE DROP ( DROP BOTTOM STACK ITEM *) 

5 POP -2 BYTE.IN DROP ! ( C.F. VECTORS DIRECTLY TO 'POP' ) 

6 

7 CODE SWAP ( EXCHANGE BOTTOM AND SECOND ITEMS ON STACK *) 

8 SEC LDA, PHA, BOT LDA, SEC STA, 

9 SEC 1+ LDA, BOT 1+ LDY, SEC 1+ STY, PUT JMP, 

10 

11 CODE DUP ( DUPLICATE BOTTOM ITEM ON STACK *) 

12 BOT LDA, PHA, BOT 1+ LDA, PUSH JMP, 

13 

14 —> 

15 


SCR # 31 

0 ( MEMORY INCREMENT, WFR-79MAR30 ) 

1 

2 CODE +1 ( ADD SECOND TO MEMORY 16 BITS ADDRESSED BY BOTTOM *) 


3 

CLC 

, BOT X) 

LDA , 

SEC ADC, BOT X) STA 

' * 


4 

BOT 

INC, 0- 

IF, 

BOT 1 + 

INC, THEN, 



5 

A 

BOT 

X) LDA, 

SEC 

1+ ADC, 

BOT X) STA, 

POPTWO JMP, 


u 

7 

CODE TOGGLE 


( BYTE 

AT ADDRESS-2, 

BIT PATTERN-1 

... *> 

8 


SEC X) LDA, 

BOT EOR, 

SEC X) STA, 

POPTWO JMP, 



9 

10 — > 
11 
12 

13 

14 

15 


SCR # 32 

0 ( MEMORY FETCH AND STORE WFR-781202 ) 

1 CODE @ { REPLACE STACK ADDRESS WITH 16 BIT *) 

2 BOT X) LDA, PHA, ( CONTENTS OF THAT ADDRESS *) 

3 BOT INC, 0- IF, BOT 1+ INC, THEN, BOT X) LDA, PUT JMP, 

4 

5 CODE C@ ( REPLACE STACK ADDRESS WITH POINTED 8 BIT BYTE *) 

6 BOT X) LDA, BOT STA, BOT 1+ STY, NEXT JMP, 

7 

8 CODE i ( STORE SECOND AT 16 BITS ADDRESSLD BY BOTTOM *) 

9 SEC LDA, BOT X) STA, BOT INC, 0- IF, BOT 1+ INC, THEN, 

10 SEC 1+ LDA, BOT X) STA, POPTWO JMP, 

1 1 

12 CODE C! ( STORE SECOND AT BYTE ADDRESSED BY BOTTOM *) 

13 SEC LDA, BOT X) STA, POPTWO JMP, 

14 

15 DECIMAL ;S 


FORTH INTEREST GROUP 


MAY 1, 1979 









WFR-79MAR30 ) 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
12 

13 

14 

15 


if 33 

( : i 


( CREATE NEW COLON-DEFINITION UNTIL *) 

7EXEC !CSP CURRENT <3 CONTEXT 1 

CREATE ] ;CODE IMMEDIATE 

IP 1+ LDA, PHA, IP LDA, PHA, CLC, W LDA, 2 if ADC, 

IP STA, TYA, W 1+ ADC, IP 1+ STA, NEXT JMP, 


( TERMINATE COLON-DEFINITION *) 
?CSP COMPILE ;S 

SMUDGE [ ; IMMEDIATE 


--> 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


# 34 

( CONSTANT, VARIABLE, USER WFR-79MAR30 ) 

: CONSTANT ( WORD WHICH LATER CREATES CONSTANTS *) 

CREATE SMUDGE , ;CODE 

1 # LDY, W )Y LDA, PHA, INY, W )Y LDA, PUSH JMP, 

: VARIABLE ( WORD WHICH LATER CREATES VARIABLES *) 

CONSTANT ;CODE 

CLC, W LDA, 2 if ADC, PHA, TYA, W 1+ ADC, PUSH JMP, 


( CREATE USER VARIABLE *) 


: USER 

CONSTANT ;CODE 

2 # LDY, CLC, W )Y LDA, UP ADC, PHA, 
0 if LDA, UP 1+ ADC, PUSH JMP, 


--> 


SCR # 35 

0 ( DEFINED CONSTANTS 


WFR-78MAR22 ) 


1 

HEX 









2 

00 

CONSTANT 

0 

01 

CONSTANT 

1 




3 

02 

CONSTANT 

2 

03 

CONSTANT 

3 




4 

20 

CONSTANT 

BL 




( ASCII BLANK 

*) 

5 

40 

CONSTANT 

C/L 



( TEXT CHARACTERS 

PER LINE 

*) 

0 

7 

3BE0 

CONSTANT. 

FIRST 

( FIRST 

BYTE RESERVED FOR 

BUFFERS 

*) 

8 

4000 

CONSTANT 

LIMIT 


( 

JUST BEYOND TOP OF RAM 

*) 

9 

80 

CONSTANT 

B/BUF 


( 

BYTES PER DISC 

BUFFER 

*) 

10 

1 1 

8 

CONSTANT 

B/SCR 

( BLOCKS 

PER 

SCREEN - 1024 

B/BUF / 

*) 


12 

13 

14 

15 


: +ORIGIN 
--> 


00 +ORIGIN 
LITERAL + 


( LEAVES ADDRESS RELATIVE TO ORIGIN *) 


FORTH INTEREST GROUP 


MAY 1, 1979 




SCR if 36 


0 

( USER VARIABLES 

1 

HEX 


( < 

2 

( 06 

USER 

SO ) 

3 

( 08 

USER 

RO ) 

4 

OA 

USER 

TIB 

5 

OC 

USER 

WIDTH 

6 

OE 

USER 

WARNING 

7 

10 

USER 

FENCE 

8 

12 

USER 

DP 

9 

14 

USER 

VOC-LINK 

10 

16 

USER 

BLK 

1 1 

18 

USER 

IN 

12 

1A 

USER 

OUT 

13 

1C 

USER 

SCR 

1 4 

— > 



15 




ICR 

if 37 



0 

( USER VARIABLES, 

1 

IE 

USER 

OFFSET 

2 

20 

USER 

CONTEXT 

3 

22 

USER 

CURRENT 

4 

24 

USER 

STATE 

5 

26 

USER 

BASE 

6 

28 

USER 

DPL 

7 

2A 

USER 

FLD 

8 

2C 

USER 

CSP 

9 

2E 

USER 

R # 

10 

30 

USER 

HLD 

1 1 

--> 




WFR-78APR29 ) 

0 THRU 5 RESERVED, REFERENCED TO $00A0 *) 
( TOP OF EMPTY COMPUTATION STACK *) 
( TOP OF EMPTY RETURN STACK *) 
( TERMINAL INPUT BUFFER *) 
( MAXIMUM NAME FIELD WIDTH *) 
( CONTROL WARNING MODES *) 
( BARRIER FOR FORGETTING *) 
( DICTIONARY POINTER *) 
( TO NEWEST VOCABULARY *) 
( INTERPRETATION BLOCK *) 
( OFFSET INTO SOURCE TEXT *) 
( DISPLAY CURSOR POSITION *) 
( EDITING SCREEN *) 


WFR-79APR29 ) 
( POSSIBLY TO OTHER DRIVES *) 
( VOCABULARY FIRST SEARCHED *) 
( SEARCHED SECOND, COMPILED INTO *) 
( COMPILATION STATE *) 
( FOR NUMERIC INPUT-OUTPUT *) 
( DECIMAL POINT LOCATION *) 
( OUTPUT FIELD WIDTH *) 
( CHECK STACK POSITION *) 
( EDITING CURSOR POSITION *) 
POINTS TO LAST CHARACTER HELD IN PAD *) 


12 

13 

14 

15 


SCR if 38 


0 ( HI- 

LEVEL 

MISC 

• 




WFR-79APR29 

1 

1+ 

1 

+ 

• 

9 



( 

INCREMENT STACK NUMBER BY ONE 

2 

2+ 

2 

+ 

• 

t 



( 

INCREMENT STACK NUMBER BY TWO 

3 

HERE 

DP 

@ 

9 


( 

FETCH NEXT FREE ADDRESS IN DICT. 

4 

ALLOT DP 

+ i 

• 

9 




( MOVE DICT. POINTER AHEAD 

5 

9 

HERE 

i 2 

ALLOT 

• 

* 


( ENTER STACK NUMBER TO DICT. 

6 

c. 

HERE 

Ci 

i 

ALLOT 

t 

( ENTER STACK BYTE TO DICT. 

7 


MINUS 

+ 

• 

f 




( LEAVE DIFF. SEC - BOTTOM 

8 

an 

- 0- 

9 





( LEAVE BOOLEAN OF EQUALITY 

9 

< 

- 0< 






( LEAVE BOOLEAN OF SEC < BOT 

10 

> 

SWAP 

< 9 ; 





( LEAVE BOOLEAN OF SEC > BOT 

1 1 

ROT 

>R 

SWAP 

R> 

SWAP 

• 

9 

( ROTATE THIRD TO BOTTOM 

1 2 

SPACE 

BL 

EMIT 

9 



( PRINT BLANK ON TERMINAL 

1 3 

-DUP 

* DUP 

IF 

DUP 

ENDIF 

; ( DUPLICATE NON-ZERO 


14 --> 

15 


) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


FORTH INTEREST GROUP 


MAY 1, 1979 








SCR 

0 

1 

2 

3 

4 


# 39 

( VARIABLE LENGTH NAME SUPPORT WFR-79MAR30 ) 

: TRAVERSE ( MOVE ACROSS NAME FIELD *) 

( ADDRESS-2, DIRECTION-1, I.E. -1«R TO L, +1-L TO R *) 
SWAP 

BEGIN OVER + 7F OVER C@ < UNTIL SWAP DROP ; 


CURRENT 


( NFA OF LATEST WORD *) 


6 : LATEST 

7 

8 

9 ( FOLLOWING HAVE LITERALS DEPENDENT ON COMPUTER WORD SIZE ) 

10 


11 

: LFA 

4 

_ • 

, 

( 

CONVERT 

A 

WORDS 

PFA 

TO 

LFA 

*> 

1 2 

: CFA 

2 

" 9 

( 

CONVERT 

A 

WORDS 

PFA 

TO 

CFA 

*> 

1 3 

: NFA 

5 

- -1 TRAVERSE ; 

( 

CONVERT 

A 

WORDS 

PFA 

TO 

NFA 

*> 

1 4 

: PFA 

1 

TRAVERSE 5 + ; 

( 

CONVERT 

A 

WORDS 

NFA 

TO 

PFA 

*> 


1 5 


--> 


SCR // 4 0 

0 ( ERROR PROCEEDURES, PER SHIRA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1 2 
1 3 

14 

15 


! CSP 
TERROR 

? COMP 
? EXEC 
?PA IRS 
?CSP 


SP<? CSP ! 


WFR-79MAR2 3 ) 


( SAVE STACK POSITION IN 'CSP' *) 


( BOOLEAN-2, 
SWAP IF ERROR 


ERROR TYPE-1, WARN FOR TRUE *) 
ELSE DROP ENDIF ; 


STATE @ 0-11 ? ERROR 

STATE <? 12 TERROR 


TLOADING 

BLK @ 


( ERROR IF NOT COMPILING *) 
( ERROR IF NOT EXECUTING *) 
- 13 TERROR ; ( VERIFY STACK VALUES ARE PAIRED *) 

SP@ CSP <? - 14 TERROR ; ( VERIFY STACK POSITION *) 

( VERIFY LOADING FROM DISC *) 


16 TERROR 


— > 


WFR-79APR20 ) 


SCR # 41 

0 ( COMPILE, SMUDGE, HEX, DECIMAL 
1 

2 : COMPILE ( COMPILE THE EXECUTION ADDRESS FOLLOWING *) 


3 

A 


T COMP R> 

DUP 

2+ >R 

@ , 

• 

* 



5 

• 

• 

[ o 

STATE ! 

S 

IMMEDIATE 


( STOP COMPILATION 

*> 

0 

7 

8 

9 

• 

] CO 

STATE ! 

• 

9 


( 

ENTER COMPILATION 

STATE 

*) 

• 

SMUDGE 

LATEST 

20 

TOGGLE 

9 

( ALTER LATEST WORD 

NAME 

*) 

10 

1 1 

• 

• 

HEX 

10 BASE 

! 

• 

f 

( 

MAKE HEX THE IN-OUT 

BASE 

*> 

1 2 

1 3 

1 4 

: 

DECIMAL 

-> 

OA BASE 

1 

; ( 

MAKE 

DECIMAL THE IN-OUT 

BASE 

*) 

15 


FORTH INTEREST GROUP 


MAY 1 


1979 







SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


# 42 

( ; CODE WFR-79APR20 ) 


: (;CODE) 

R> 


( WRITE CODE FIELD POINTING TO CALLING ADDRESS *) 
LATEST ?FA CFA ! ; 


: ;CODE ( TERMINATE A NEW DEFINING WORD *) 

?CSP COMPILE ( ;CODE) 

{COMPILE] [ SMUDGE ; IMMEDIATE 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 l 
12 

13 

14 


# 43 

( <BUILD, DOES> WFR-79MAR20 ) 

: <BUILDS 0 CONSTANT ; ( CREATE HEADER FOR 'DOES>' WORD *) 

: DOES> ( REWRITE PFA WITH CALLING HI-LEVEL ADDRESS *) 

( REWRITE CFA WITH 'DOES>' CODE *) 
R> LATEST PFA ! {CODE 

IP 1+ LDA, PHA, IP LDA, PHA, ( BEGIN FORTH NESTING ) 
2 # LDY, W )Y LDA, IP STA, ( FETCH FIRST PARAM ) 

INY, W )Y LDA, IP 1+ STA, { AS NEXT INTERP. PTR ) 

CLC, W LDA, 4 # ADC, PHA, ( PUSH ADDRESS OF PARAMS ) 
W 1+ LDA, 00 # ADC, PUSH JMP, 

— > 


15 


SCR # 
0 ( 
1 : 
2 : 

3 

4 

5 : 

6 

7 

8 : 
9 

10 
1 1 

12 : 
13 
1 4 
15 


44 

TEXT OUTPUTS WFR-79APR02 ) 

COUNT DUP 1+ SWAP C(? ; ( LEAVE TEXT ADDR. CHAR. COUNT *) 

TYPE ( TYPE STRING FROM ADDRESS-2, CHAR.COUNT-1 *) 

-DUP IF OVER + SWAP 

DO I C@ EMIT LOOP ELSE DROP ENDIF ; 

-TRAILING ( ADJUST CHAR. COUNT TO DROP TRAILING BLANKS *) 
DUP 0 DO OVER OVER + 1 - C<? 

BL - IF LEAVE ELSE 1 - ENDIF LOOP ; 

(.") ( TYPE IN-LINE STRING, ADJUSTING RETURN *) 


R COUNT DUP 1+ 

R> + 

>R TYPE 

# 

» 



." 22 STATE <3 

( COMPILE OR PRINT 

QUOTED 

STRING *) 

IF COMPILE (.") 

WORD 

HERE 

c@ 

1+ ALLOT 

ELSE WORD 

HERE 

COUNT 

TYPE 

ENDIF 

• 

t 

IMMEDIATE 

--> 






FORTH INTEREST GROUP 


MAY 1 


1979 







SCR 

0 

1 

2 


I 4 
15 


45 

TERMINAL 

EXPECT 


INPUT WFR-79APR29 ) 

( TERMINAL INPUT MEMORY-2, CHAR LIMIT-1 *) 


3 

OVER + OVER DO 

KEY DUP OE 

+0RIGIN ( BS ) 

0 - 

4 

IF DROP 08 OVER 

I - DUP 

R> 2 

- + >R 


5 

ELSE ( NOT BS ) 

DUP OD - 




6 

IF ( RET ) LEAVE DROP 

BL 0 

ELSE DUP 

ENDIF 

7 

I Cl 0 I 

1+ ! 




8 

ENDIF EMIT LOOP 

DROP ; 




9 

: QUERY TIB 0 50 

EXPECT 0 

IN 1 

• 

9 


10 

8081 HERE 





1 l 

: X BLK 0 


( 

END-OF-TEXT 

IS NULL *) 

1 2 

IF ( DISC ) 1 BLK 

+1 0 IN 1 

BLK @ 

7 AND 0- 


1 3 

IF ( SCR END ) 

? EXEC R> 

DROP 

ENDIF ( disc dependent ) 

1 4 

ELSE ( TERMINAL 

) R> DROP 



1 3 

ENDIF J 1 

IMMEDIATE 

-> 



SCR 

if 46 






0 ( FILL, ERASE, BLANKS, HOLD, PAD 


WFR-79APR02 ) 


1 

: 

FILL 


( FILL 

MEMORY BEGIN-3, 

QUAN-2, 

BYTE-1 

*) 

2 


SWAP >R 

OVER C! 

DUP 1+ R> 1 

- CMOVE 

• 

9 


j 

4 

• 

ERASE 


( FILL MEMORY WITH ZEROS 

BEGIN-2, 

QUAN-l 

*) 

5 


0 

FILL 

• 

9 

* 




Q 

7 

• 

• 

BLANKS 


( 

FILL WITH BLANKS 

BEG IN-2, 

QUAN-1 

*> 

8 

g 


BL 

FILL 

• 

9 





10 

• 

• 

HOLD 



( HOLD 

CHARACTER 

IN PAD 

*> 

1 1 
12 

1 3 


-1 

HLD 

+ 1 HLD 

0 Cl ; 




• 

PAD 

HERE 

44 + ; 

( PAD IS 68 

BYTES ABOVE HERE 

*) 


( DOWNWARD HAS NUMERIC OUTPUTS; UPWARD MAY HOLD TEXT *) 


— > 


SCR if 47 


0 

( WORD, 



WFR-79APR02 ) 

1 

: WORD 

( ENTER WITH DELIMITER, MOVE STRING TO 'HERE' *) 

2 

BLK @ IF BLK 


@ BLOCK ELSE TIB 0 ENDIF 

3 

IN @ + 

SWAP 


( ADDRESS-2, DELIMITER-1 ) 

4 

ENCLOSE 


( 

ADDRESS-4, START-3, END-2, TOTAL COUNT-1 ) 

5 

HERE 22 

BLANKS 


( PREPARE FIELD OF 34 BLANKS ) 

6 

IN -hi 


( 

STEP OVER THIS STRING ) 

7 

OVER - 

>R 

< 

SAVE CHAR COUNT ) 

8 

R HERE 

Cl 

( 

LENGTH STORED FIRST ) 

9 

+ HERE 

1+ 



10 

R> CMOVE 

• 

9 

( 

MOVE STRING FROM BUFFER TO HERE+1 ) 


1 1 
12 

13 

14 

15 —> 

FORTH INTEREST GROUP MAY 1, 1979 






SCR # 
0 ( 
1 : 
2 

3 

4 

5 

6 : 

7 

8 
9 

10 
1 1 

12 : 

13 

14 


48 

(NUMBER-, 
(NUMBER) 
BEGIN 1+ 
WHILE 
DPL <3 


NUMBER, -FIND, WFR-79APR29 

( CONVERT DOUBLE NUMBER, LEAVING UNCONV. ADDR. 
DUP >R C@ BASE @ DIGIT 
SWAP BASE <3 U* DROP ROT BASE @ U* D+ 

1+ IF 1 DPL +! ENDIF R> REPEAT R> ; 


NUMBER ( ENTER W/ STRING ADDR. LEAVE DOUBLE NUMBER *) 
0 0 ROT DUP 1+ C@ 2D - DUP >R + -1 
BEGIN DPL ! (NUMBER) DUP C@ BL 

WHILE DUP C@ 2E - 0 TERROR 0 REPEAT 

DROP R> IF DMINUS ENDIF ; 


-FIND ( RETURN PFA-3, LEN BYTE-2, TRUE-1; ELSE FALSE 

BL WORD HERE CONTEXT @ <3 (FIND) 

DUP 0- IF DROP HERE LATEST (FIND) ENDIF ; 


) 

*) 


*) 


SCR // 49 

0 ( ERROR HANDLER WFR-79APR20 ) 

2 : (ABORT) ABORT ; ( USER ALTERABLE ERROR ABORT *) 

3 

4 : ERROR ( WARNING: -1-ABORT, O-NO DISC, 1-DISC *) 

5 WARNING @ 0< ( PRINT TEXT LINE REL TO SCR #4 *) 

6 IF (ABORT) ENDIF HERE COUNT TYPE ? " 

7 MESSAGE SPJ IN @ BLK <3 QUIT ; 

8 

9 ; ID. ( PRINT NAME FIELD FROM ITS HEADER ADDRESS *) 

10 PAD 020 5F FILL DUP PFA LFA OVER - 

11 pad SWAP CMOVE PAD COUNT OIF AND TYPE SPACE ; 

12 — > 

13 

14 

15 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


# 50 

( CREATE 


WFR-79APR28 ) 


CREATE ( A SMUDGED CODE HEADER TO PARAM FIELD *) 

( WARNING IF DUPLICATING A CURRENT NAME *) 
TIB HERE 0A0 + < 2 ?ERROR ( 6502 only ) 

-FIND ( CHECK IF UNIQUE IN CURRENT AND CONTEXT ) 

IF ( WARN USER ) DROP NFA ID. 

MESSAGE SPACE ENDIF 
@ MIN 1+ ALLOT 

( 6502 only ) 

1 - 80 TOGGLE ( DELIMIT BITS ) 


— > 


4 

HERE DUP C<3 WIDTH 
DP C@ OFD - ALLOT 
DUP AO TOGGLE HERE 
LATEST , CURRENT @ 
HERE 2+ , ; 


FORTH INTEREST GROUP 


MAY 1, 1979 





SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 
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15 


# 51 

( LITERAL, DLITERAL, [COMPILE], ?STACK WFR-79APR29 ) 


[COMPILE] 

-FIND 

0- 

0 

( FORCE 
? ERROR 

COMPILATION OF AN 
DROP CFA , ; 

IMMEDIATE WORD 
IMMEDIATE 

*) 

LITERAL 

STATE 

0 

IF 

COMPILE 

( IF COMPILING, 
LIT , ENDIF ; 

CREATE LITERAL 
IMMEDIATE 

*) 

DLITERAL 

STATE 

0 

IF 

( IF COMPILING, CREATE 
SWAP [COMPILE] LITERAL 

DOUBLE LITERAL 

*) 




[COMPILE] LITERAL 

ENDIF ; IMMEDIATE 


( FOLLOWING DEFINITION IS INSTALLATION DEPENDENT ) 

: ?STACK ( QUESTION UPON OVER OR UNDERFLOW OF STACK *) 
09E SP@ < 1 TERROR SP@ 020 < 7 TERROR ; 

--> 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


# 52 

( INTERPRET, WFR-79APR18 ) 

: INTERPRET ( INTERPRET OR COMPILE SOURCE TEXT INPUT WORDS *) 
BEGIN -FIND 

IF ( FOUND ) STATE 0 < 

IF CFA , ELSE CFA EXECUTE ENDIF TSTACK 
ELSE HERE NUMBER DPL @ 1+ 

IF [COMPILE] DLITERAL 

ELSE DROP [COMPILE] LITERAL ENDIF TSTACK 

ENDIF AGAIN ; 


SCR # 53 

0 ( IMMEDIATE, VOCAB, DEFIN, FORTH, ( DJK-WFR-79APR29 ) 

1 S IMMEDIATE ( TOGGLE PREC. BIT OF LATEST CURRENT WORD *) 

2 LATEST 40 TOGGLE ; 

3 

4 : VOCABULARY ( CREATE VOCAB WITH 'V-HEAD' AT VOC INTERSECT. *) 

5 <BUILDS A081 , CURRENT 0 CFA , 

6 HERE VOC-LINK @ , VOC-LINK ! 

7 DOES> 2+ CONTEXT 1 ; 

8 

9 VOCABULARY FORTH IMMEDIATE ( THE TRUNK VOCABULARY *) 


10 

11 : DEFINITIONS 

( SET THE 

CONTEXT ALSO AS 

CURRENT VOCAB *) 

12 

13 

14 : ( 

CONTEXT 

@ CURRENT ! 

i 



( SKIP INPUT 

TEXT UNTIL RIGHT 

PARENTHESIS *) 

15 

29 WORD 

; IMMEDIATE 

— > 



FORTH INTEREST GROUP 


MAY 1, 1979 







SCR 

0 

1 

2 
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4 

5 

6 

7 

8 
9 

10 
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12 
1 3 

14 

15 


54 

QUIT, 


ABORT 


WFR-79MAR30 ) 


QUIT ( RESTART* INTERPRET FROM TERMINAL *) 

0 BLK l [COMPILE] [ 

BEGIN RP! CR QUERY INTERPRET 

STATE @ 0- IF OK” ENDIF AGAIN ; 


ABORT 
SP ! 


— > 


( WARM RESTART, INCLUDING REGISTERS *) 
DECIMAL DRO 

CR FORTH-65 V 4.0" 

[COMPILE] FORTH DEFINITIONS QUIT ; 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 l 
12 

13 

14 

15 


# 55 

( COLD START WFR-79APR29 ) 

CODE COLD ( COLD START, INITIALIZING USER AREA *) 

HERE 02 +0RIG IN ! ( POINT COLD ENTRY TO HERE ) 

OC +ORIGIN LDA, 'T FORTH 4 + STA, ( FORTH VOCAB. ) 

OD +ORIGIN LDA, 'T FORTH 5 + STA, 

15 # LDY, ( INDEX TO VOC-LINK ) 0- IF, ( FORCED ) 

HERE 06 +ORIGIN 1 ( POINT RE-ENTRY TO HERE ) 

OF # LDY, ( INDEX TO WARNING ) THEN, ( FROM IF, ) 


10 +ORIGIN LDA, UP STA, 

11 +ORIGIN LDA, UP 1+ STA, 

BEGIN, OC +ORIGIN ,Y LDA, 

UP )Y STA, 
DEY, 0< END, 

'T ABORT 100 /MOD # LDA, 

t LDA, 


( LOAD UP ) 

( FROM LITERAL AREA ) 
( TO USER AREA ) 

IP 1+ STA, 

IP STA, 


6C // LDA, W 1 - STA, 


'T RPi JMP, ( RUN ) —> 


SCR # 56 

0 ( MATH UTILITY 
1 CODE S->D 


DJK-WFR-79APR29 ) 
( EXTEND SINGLE INTEGER TO DOUBLE *) 


2 

O 



BOT 1+ LDA, 

0< 

IF, 

DEY, THEN, 

TYA, PH A", PUSH 

JMP, 


J 

4 

C 

• 

• 

+- 

0< IF 

MINUS 

ENDIF 

; ( APPLY 

SIGN TO 

NUMBER 

BENEATH 

*) 

J 

6 

• 

• 

D+- 




( , 

APPLY SIGN TO 

DOUBLE 

NUMBER 

BENEATH 

*) 

7 

8 

9 



0< IF 

DMINUS 

ENDIF ; 

• 




• 

ABS 

DUP 

+- 

• 

f 



( LEAVE 

ABSOLUTE VALUE 

*> 

10 

1 l 
12 

• 

• 

DABS 

DUP 

D+- 

• 

t 


( DOUBLE 

INTEGER 

ABSOLUTE VALUE 

*) 

• 

• 

MIN 





( LEAVE 

SMALLER 

OF TWO 

NUMBERS 

*) 

13 



OVER 

OVER 

> 

IF 

SWAP ENDIF 

DROP 

• 

f 



14 

• 

• 

MAX 





( LEAVE 

LARGET 

OF TWO 

NUMBERS 

*) 

15 



OVER 

OVER 

< 

IF 

SWAP ENDIF 

DROP 

; —> 



FORTH 

INTEREST GROUP 





MAY 

1, 1979 






SCR 
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6 


57 

MATH 

M* 

M/ 


PACKAGE DJK-WFR-79APR29 ) 

( LEAVE SIGNED DOUBLE PRODUCT OF TWO SINGLE NUMBERS *) 
OVER OVER XOR >R ABS SWAP ABS U* R> D+- ; 

( FROM SIGNED DOUBLE-3-2, SIGNED DIVISOR-1 *) 
( LEAVE SIGNED REMAINDER-2, SIGNED QUOTIENT-1 *) 
OVER >R >R DABS R ABS U/ 

R> R XOR +- SWAP R> +- SWAP ; 


7 

• 

* 

U* DROP ; 


( SIGNED PRODUCT 

*) 

8 

• 

/MOD 

>R S- 

>D R> M/ 

• 

1 

( LEAVE REM-2, QUOT-1 

*> 

9 

• 

• 

/ 

/MOD 

SWAP DROP 

« 

f 

( LEAVE QUOTIENT 

*) 

10 

• 

MOD 

/ MOD 

DROP ; 


( LEAVE REMAINDER 

*) 

1 1 

• 

• 

* / MOD 


( TAKE RATION 

OF THREE NUMBERS, LEAVING 

*) 

12 



>R M* 

R> M/ ; 


( REM-2, QUOTIENT-1 

*) 

13 

• 

• 

*/ 

* /MOD 

SWAP DROP 

; ( 

LEAVE RATIO OF THREE NUMBS 

*) 

14 

• 

• 

M/MOD 

( DOUBLE, SINGLE 

DIVISOR 

... REMAINDER, DOUBLE *) 


15 



>R 0 

R U/ R> 

SWAP 

>R U/ R> ; —> 


CR 

# 

58 






0 

( 

DISC 

UTILITY 

, GENERAL 

USE 

WFR-79APR02 

! ) 

1 

FIRST VARIABLE 

USE 

( NEXT BUFFER TO USE, STALEST 

*) 

2 

FIRST VARIABLE 

PREV 

( MOST 

RECENTLY REFERENCED BUFFER 

*) 

3 

4 

• 

• 

+BUF 

( ADVANCE ADDRESS-1 TO 

NEXT BUFFER. RETURNS FALSE 

*) 

5 


84 

( I.E. 

B/BUF+4 ) 

+ DUP 

LIMIT - ( IF AT PREV 

*) 

6 

*7 


IF 

DROP 

FIRST ENDIF DUP 

PREV @ - ; 


/ 

8 

• 

• 

UPDATE 

( 

MARK THE BUFFER POINTED TO BY PREV AS ALTERED 

*) 


9 

10 
11 
1 2 

13 

14 

15 


PREV @ @ 8000 OR PREV @ 1 

EMPTY-BUFFERS ( CLEAR BLOCK BUFFERS; DON'T WRITE TO’ DISC *) 
FIRST LIMIT OVER - ERASE ; 


DRO 

DR1 


0 

07D0 


OFFSET 

OFFSET 


! 


--> 


( SELECT DRIVE #0 *) 
( SELECT DRIVE #1 *) 


SCR # 59 

0 ( BUFFER WFR-79APR02 ) 

1 : BUFFER ( CONVERT BLOCK# TO STORAGE ADDRESS *) 

2 USE @ DUP >R ( BUFFER ADDRESS TO BE ASSIGNED ) 

3 BEGIN +BUF UNTIL ( AVOID PREV ) USE ! ( FOR NEXT TIME ) 

4 R @ 0< ( TEST FOR UPDATE IN THIS BUFFER ) 

5 IF ( UPDATED, FLUSH TO DISC ) 

6 R 2+ ( STORAGE LOC. ) 

7 R @ 7FFF AND ( ITS BLOCK # ) 

8 0 R/W ( WRITE SECTOR TO DISC ) 

9 ENDIF 

10 R ! ( WRITE NEW BLOCK # INTO THIS BUFFER ) 

11 R PREV ! ( ASSIGN THIS BUFFER AS 'PREV' ) 

12 R> 2+ ( MOVE TO STORAGE LOCATION ) ; 

13 

14 — > 

15 


FORTH INTEREST GROUP 


MAY 1 


1979 





SCR t 60 

0 ( BLOCK WFR-79APR02 ) 

1 : BLOCK ( CONVERT BLOCK NUMBER TO ITS BUFFER ADDRESS *) 

2 OFFSET @ + >R ( RETAIN BLOCK # ON RETURN STACK ) 

3 PREV @ DUP @ R - DUP + ( BLOCK - PREV ? ) 

4 IF ( NOT PREV ) 

5 BEGIN +BUF 0- ( TRUE UPON REACHING 'PREV' ) 

6 IF ( WRAPPED ) DROP R BUFFER 

7 DUP R 1 R/W ( READ SECTOR FROM DISC ) 

8 2 - ( BACKUP ) 

9 END IF 

10 DUP @ R - DUP + 0- 

11 UNTIL ( WITH BUFFER ADDRESS ) 

12 DUP PREV 1 

13 ENDIF 

14 R > DROP 2+ ; 

15 —> 


SCR If 6 1 

0 ( TEXT OUTPUT FORMATTING WFR-79MAY03 ) 

1 

2 : (LINE) ( LINE#, SCR#, ... BUFFER ADDRESS, 64 COUNT *) 

3 >R C/L B/BUF */MOD R> B/SCR * + 

4 BLOCK + C/L ; 

5 

6 : .LINE ( LINE#, SCR#, ... PRINTED *) 

7 (LINE) -TRAILING TYPE ; 

8 

9 : MESSAGE ( PRINT LINE RELATIVE TO SCREEN #4 OF DRIVE 0 *) 

10 WARNING <? 

11 IF ( DISC IS AVAILABLE ) 

12 -DUP IF 4 OFFSET <3 B/SCR / - .LINE ENDIF 

13 ELSE ." MSG # " . ENDIF ; 

14 —> 

15 


SCR # 62 

0 ( LOAD, —> 

1 

2 : LOAD 

3 BLK <? >R IN @ 

4 INTERPRET R> IN 

5 

6 : —> ( 

7 7L0ADING 0 IN 

8 MOD - BLK +1 

9 

10 — > 

11 

12 

13 

14 

15 


WFR-79APR02 ) 

( INTERPRET SCREENS FROM DISC *) 
>R 0 IN ! B/SCR * BLK 1 
1 R> BLK 1 ; 

CONTINUE INTERPRETATION ON NEXT SCREEN *) 
1 B/SCR BLK @ OVER 
; IMMEDIATE 


FORTH INTEREST GROUP 


MAY 1 


1979 






WFR-79APR26 ) 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 l 
1 2 
1 3 
1 4 
1 5 


# 63 

( INSTALLATION DEPENDENT TERMINAL I-O, TIM 
( EMIT ) ASSEMBLER 

HERE -2 BYTE.IN EMIT 1 ( VECTOR EMITS' CF TO HERE ) 

XSAVE STX, BOT LDA, 7F # AND, 72C6 JSR, XSAVE LDX, 

CLC, 1A # LDY, UP )Y LDA, 01 # ADC, UP )Y STA, 

INY, UP )Y LDA, 00 t ADC, UP )Y STA, POP JMP, 

( AND INCREMENT 'OUT' > 

( KEY ) 

HERE -2 BYTE.IN KEY 1 ( VECTOR KEYS' CF TO HERE ) 

XSAVE STX, BEGIN, 8 # LDX, 

BEGIN, 6E02 LDA, .A LSR, CS END, 7320 JSR, 

BEGIN, 73ID JSR, 0 X) CMP, 0 X) CMP, 0 X) CMP, 

0 X) CMP, 0 X) CMP, 6E02 LDA, .A LSR, PHP, TYA, 

.A LSR, PLP, CS IF, 80 # ORA, THEN, TAY, DEX, 

0- END, 7 31D JSR, FF # EOR, 7F # AND, 0- NOT END, 
XSAVE LDX, PUSHOA JMP, —> 


SCR # 64 

0 ( INSTALLATION DEPENDENT TERMINAL I-O, TIM WFR-79APR02 ) 

1 

2 ( 7TERMINAL ) 

3 HERE -2 BYTE.IN 7TERMINAL ! ( VECTOR LIKEWISE ) 

4 1 If LDA, 6E02 BIT, 0- NOT IF, 

5 BEGIN, 731D JSR, 6E02 BIT, 0- END, INY, THEN, 

6 TYA, PUSHOA JMP, 

7 

8 ( CR ) 

9 HERE -2 BYTE.IN CR 1 ( VECTOR CRS' CF TO HERE ) 

10 XSAVE STX, 728A JSR, XSAVE LDX, NEXT JMP, 

1 1 

12 —> 

13 

14 

15 


SCR 
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13 

14 

15 


# 65 

( INSTALLATION DEPENDENT DISC 


6900 

6901 


#HL 


CONSTANT 

CONSTANT 


0 OA U/ 


— > 


DATA 

STATUS 


WFR-79APR02 ) 
( CONTROLIER PORT *) 

( CONTROLLER PORT *) 


( CONVERT DECIMAL DIGIT FOR DISC CONTROLLER *) 
SWAP 30 + HOLD ; 


FORTH INTEREST GROUP 


MAY 1, 1979 




SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1 2 
1 3 
14 
1 5 


EXIT TEST BOOL-2, 
CO # LDA, 

END, ( 


TILL 

) 

SEC STY, 


It 66 

( D/CHAR, ?DISC, 

CODE D/CHAR ( TEST CHAR-1. 

DEX, DEX, BOT 1+ STY, 

BEGIN, STATUS BIT, 0- NOT unu, 

DATA LDA, BOT STA, ( SAVE CHAR 
SEC CMP, 0- IF, INY, THEN, 

( UPON NAK SHOW ERR MSG, 
D/CHAR >R 0- ( 

( NOT SOH ) R 15 - 
IF ( NAK ) CR 

BEGIN 4 D/CHAR 

UNTIL ( PRINT ERR MSG TIL 


CONTROL READY 
NEXT JMP, 


?D I SC 
1 

IF 


QUIT. ABSORBS TILL *) 
EOT, EXCEPT FOR SOH *) 


END IF 


END IF ( 
BEGIN 4 
R> DROP 


FOR ENQ 
D/CHAR 


EMIT 
ERR MSG 
, ACK ) 
DROP 
--> 


EOT ) QUIT 
UNTIL ( AT EOT ) 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


it 6 7 

( BLOCK—WRITE WFR—790103 ) 

CODE BLOCK-WRITE ( SEND TO DISC FROM ADDRESS-2, COUNT-1 *) 

2 it LDA, SETUP JSR, ( WITH EOT AT END *) 

BEGIN, 02 It LDA, 

BEGIN, STATUS BIT, 0- END, ( TILL IDLE ) 

N CPY, 0- 

IF, ( DONE ) 04 # LDA, STATUS STA, DATA STA, 

NEXT JMP, 

THEN, 

N 2+ )Y LDA, DATA STA, INY, 

0- END, ( FORCED TO BEGIN ) 

— > 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
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13 

14 

15 


It 68 

( BLOCK-READ, 


WFR-790103 ) 


CODE BLOCK-READ ( BUF.ADDR-1. EXIT AT 128 CHAR OR CONTROL *) 
1 it LDA, SETUP JSR, 

BEGIN, CO It LDA, „ % 

BEGIN, STATUS BIT, 0- NOT END, ( TILL FLAG ) 

50 ( BVC, D6-DATA ) 

IF, DATA LDA, N )Y STA, INY, SWAP 

0< END, ( LOOP TILL 128 BYTES ) 

THEN, ( OR D6-0, SO D7-1, ) 

NEXT JMP, 

— > 


FORTH INTEREST GROUP 


MAY l, 1979 





SCR 
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# 69 

( R/W FOR PERSCI 1070 CONTROLLER WPR-79MAY03 ) 

OA ALLOT HERE ( WORKSPACE TO PREPARE DISC CONTROL TEXT ) 

( IN FORM: C TT SS /D, TT-TRACK, SS-SECTOR, D-DRIVE ) 

( C - I TO READ, 0 TO WRITE *) 
. R / W ( READ/WRITE DISC BLOCK *) 

( BUFFER ADDRESS-3, BLOCK #-2, 1-READ 0-WRITE *) 
LITERAL HLD ! ( JUST AFTER WORKSPACE ) SWAP 

0 OVER > OVER 0F9F > OR 6 TERROR 

07D0 ( 2000 SECT/DR ) /MOD #HL DROP 2F HOLD BL HOLD 

> 

) 


9 


1A /MOD 

SWAP 1+ 

#HL #HL DROP 

BL HOLD ( SECTOR 01-26 

1 0 




#HL #HL DROP 

BL HOLD ( TRACK 00-76 

1 l 


DUP 




1 2 


IF 49 ( 

I-READ) 

ELSE 4F ( O-WRITE ) ENDIF 

1 3 


HOLD HLD 

<3 OA 

BLOCK-WRITE ( 

SEND TEXT )- 7DISC 

14 


IF BLOCK 

-READ ELSE B/BUF BLOCK-WRITE ENDIF 

1 5 


?DI SC ; 

— > 



SCR 

if 

70 




0 

( 

FORWARD REFERENCES 


WFR-79MAR30 

1 

00 

BYTE.IN 

• 

• 

REPLACED.BY 

7 EXEC 

2 

02 

BYTE.IN 

• 

• 

REPLACED.BY 

1CSP 

3 

04 

BYTE.IN 

• 

• 

REPLACED.BY 

CURRENT 

4 

08 

BYTE.IN 

• 

• 

REPLACED.BY 

CONTEXT 

5 

OC 

BYTE.IN 

• 

• 

REPLACED.BY 

CREATE 

•6 

OE 

BYTE.IN 

• 

• 

REPLACED.BY 

] 

7 

10 

BYTE.IN 

• 

• 

REPLACED.BY 

(;CODE) 

8 

00 

BYTE.IN 

• 

» 

REPLACED.BY 

7CSP 

9 

02 

BYTE.IN 

• 

REPLACED.BY 

COMPILE 

10 

06 

’ BYTE.IN 

• 

» 

REPLACED.BY 

SMUDGE 

1 1 

08 

BYTE.IN 

» 

REPLACED.BY 

[ 

1 2 

00 

BYTE.IN 

CONSTANT 

REPLACED.BY 

CREATE 

1 3 

02 

BYTE.IN 

CONSTANT 

REPLACED.BY 

SMUDGE 

14 

04 

BYTE.IN 

CONSTANT 

REPLACED.BY 

• 

15 

06 

BYTE.IN 

CONSTANT 

REPLACED.BY 

(;CODE) —> 

SCR 

# 

71 




0 

( 

FORWARD REFERENCES 


WFR-79APR29 

1 

02 

BYTE.IN 

VARIABLE 

REPLACED.BY 

(;CODE) 

2 

02 

BYTE.IN 

USER 

REPLACED.BY 

(;CODE) 

3 

06 

BYTE.IN 

? ERROR 

REPLACED.BY 

ERROR 

4 

OF 

BYTE.IN 

«• 

. 

REPLACED.BY 

WORD 

5 

ID 

BYTE.IN 

•• 

. 

REPLACED.BY 

WORD 

6 

00 

BYTE.IN 

(ABORT) 

REPLACED.BY 

ABORT 

7 

19 

BYTE.IN 

ERROR 

REPLACED.BY 

MESSAGE 

8 

25 

BYTE.IN 

ERROR 

REPLACED.BY 

QUIT 

9 

OC 

BYTE.IN 

WORD 

REPLACED.BY 

BLOCK 

10 

IE 

BYTE.IN 

CREATE 

REPLACED.BY 

MESSAGE 

11 

2C 

BYTE.IN 

CREATE 

REPLACED.BY 

MIN 

12 

04 

BYTE.IN 

ABORT 

REPLACED.BY 

DRO 

13 

2C 

BYTE.IN 

BUFFER 

REPLACED.BY 

R/W 

14 

30 

BYTE.IN 

BLOCK 

REPLACED.BY 

R/W DECIMAL ;S 


15 


FORTH INTEREST GROUP 


MAY 1, 1979 






SCR # 72 

0 ( FORGET, DJK-WFR-79DEC02 ) 

1 s ' ( FIND NEXT WORDS PFA; COMPILE IT, IF COMPILING *) 

2 -FIND 0- 0 TERROR DROP [COMPILE] LITERAL ; 

3 IMMEDIATE 

4 HEX 

5 : FORGET ( Dave Kilbridge's Smart Forget ) 

6 [COMPILE] ' NFA DUP FENCE <3 U< 15 TERROR 

7 >R VOC-LINK @ ( start with latest vocabulary ) 

8 BEGIN R OVER U< WHILE [COMPILE] FORTH DEFINITIONS 

9 @ DUP VOC-LINK l REPEAT ( unlink from voc list ) 

10 BEGIN DUP 4 - ( start with phantom nfa ) 

11 BEGIN PFA LFA @ DUP R U< UNTIL 

12 OVER 2 — 1 @ -DUP 0- UNTIL ( end of list 7 ) 

13 R> DP ! | —> 

14 

15 


SCR # 73 

0 ( CONDITIONAL COMPILER, PER SHIRA WFR-79APR01 ) 


1 

• 

• 

BACK 

HERE - , J 

( RESOLVE 

BACKWARD BRANCH *) 

2 

3 

• 

• 

BEGIN 

? COMP HERE 1 ; 


IMMEDIATE 

4 

5 

c 

• 

• 

ENDIF 

TCOMP 2 TPAIRS HERE 

OVER - SWAP t ; IMMEDIATE 

0 

7 

8 

9 

• 

• 

THEN 

[COMPILE] ENDIF ; 

IMMEDIATE 


• 

• 

DO 

COMPILE (DO) HERE 

3 ; 

IMMEDIATE 

10 

11 

12 

13 

• 

• 

LOOP 

3 TPAIRS COMPILE 

(LOOP) BACK 

; IMMEDIATE 

• 

• 

+LOOP 

3 TPAIRS COMPILE 

(+LOOP) BACK 

; IMMEDIATE 

14 

15 

• 

© 

UNTIL 

1 TPAIRS COMPILE 

OBRANCH BACK 

; IMMEDIATE —> 


SCR 

# 

74 





0 

( 

CONDITIONAL COMPILER 



WFR-79APR01 ) 

1 

9 

• 

• 

END 

[COMPILE] UNTIL ; 

IMMEDIATE 


L 

3 

A 

• 

• 

AGAIN 

1 TPAIRS COMPILE 

BRANCH 

BACK ; 

IMMEDIATE 

H 

5 

• 

• 

REPEAT 

>R >R [COMPILE] 

AGAIN 



6 

7 

8 



R> R> 2 - [COMPILE] 

ENDIF ; 

IMMEDIATE 

• 

• 

IF 

COMPILE OBRANCH 

HERE 0 

, 2 ; 

IMMEDIATE 

9 

10 

• 

• 

ELSE 

2 TPAIRS COMPILE 

BRANCH 

HERE 0 

• 

11 



SWAP 2 [COMPILE] 

ENDIF 

2 ; 

IMMEDIATE 

1 2 







13 

• 

• 

WHILE 

[COMPILE] IF 2+ ; 

IMMEDIATE 


14 







15 

--> 





FORTH 

INTEREST 

GROUP 



MAY 1, 1979 







SCR It 75 

0 ( NUMERIC PRIMITIVES 


1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
1 2 
1 3 
1 4 
15 


SPACES 


MAX -DUP IF 


WFR-79APR01 ) 
DO SPACE LOOP END IF : 


<lf 

PAD 

HLD 1 

• 

f 


ff> 

DROP 

DROP 

HLD 

@ PAD OVER 

SIGN 

ROT 

0< IF 

2D 

HOLD END IF 

If 

BASE 

@ M/MOD 

( 

ROT 

CONVERT ONE 

9 OVER < IF 

its 

> 

BEGIN 

If OVER 

OVER OR 0- 


UNTIL 


SCR i 9 76 

0 ( OUTPUT OPERATORS 


WFR-79APR20 ) 


1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
1 2 

13 

14 — > 

15 


D.R ( DOUBLE INTEGER OUTPUT, RIGHT ALIGNED IN FIELD *) 

>R SWAP OVER DABS <# If S SIGN #> 

R> OVER - SPACES TYPE ; 


D. 0 D.R SPACE ; 

.R >R S->D R> D.R 

. S->D D. ; 


CFA MESSAGE 2A + 1 ( PRINT MESSAGE NUMBER ) 


( DOUBLE 

INTEGER 

OUTPUT 

*) 

( ALIGNED 

SINGLE 

INTEGER 

*) 

( SINGLE 

INTEGER 

OUTPUT 

*) 

( PRINT CONTENTS OF 

MEMORY 

*) 


WFR-79APR20 ) 


SCR If 77 

0 ( PROGRAM DOCUMENTATION 
1 HEX 

LIST ( LIST SCREEN BY NUMBER ON STACK *) 

DECIMAL CR DUP SCR 1 
." SCR # ” . 10 0 DO CR I 3 .R SPACE 

I SCR @ .LINE LOOP CR ; 


2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 


INDEX ( PRINT FIRST LINE OF EACH SCREEN FROM-2, TO-1 *) 

OC EMIT ( FORM FEED ) CR 1+ SWAP 
DO CR I 3 .R SPACE 
0 I .LINE 

7TERMINAL IF LEAVE END IF LOOP ; 


12 : TRIAD 


( PRINT 

3 SCREENS ON 

PAGE, CONTAINING 

If ON 

13 

OC 

EMIT ( 

FF ) 

3 / 

3*3 OVER + 

SWAP 

14 

DO 

CR I 

LIST 

LOOP 

CR 


15 

OF 

MESSAGE 

CR 

> 

DECIMAL —> 
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SCR it 78 


0 

( TOOLS 




WFR-79APR20 ) 

1 

HEX 





2 

: VLIST 



( LIST 

CONTEXT VOCABULARY *) 

3 


80 

OUT 1 

CONTEXT <3 @ 


4 

BEGIN 

OUT 

@ C/L > 

IF CR 0 OUT 

l ENDIF 

5 


DUP 

ID. SPACE 

SPACE PFA 

LFA @ 

6 


DUP 

0- 7TERMINAL OR UNTIL 

DROP ; 


7 — > 

8 
9 

10 

11 

12 

13 

14 

15 


SCR It 79 

0 ( TOOLS WFR-79MAY03 ) 

1 HEX 

2 


3 CREATE MON ( CALL MONITOR, SAVING RE-ENTRY TO FORTH 

4 0 C, 4C C, LIT 18 + , SMUDGE 

5 

6 
7 
3 
9 


10 

DECIMAL 






11 

HERE 


FENCE 

1 



12 

HERE 

28 

+ORIGIN 

1 

( 

COLD START FENCE ) 

1 3 

HERE 

30 

+ORIGIN 

l 

( 

COLD START DP ) 

14 

LATEST 

12 

4-ORIGIN 

l 

( 

TOPMOST WORD ) 

15 

' FORTH 

6 + 

32 +ORIGIN 


l ( COLD VOC-LINK ) 

SCR 

# 80 







0 — > 
1 


*) 


V 


2 

3 

4 

5 

6 


7 

8 


9 

10 
11 
12 

13 

14 

15 


S’* 
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This Is a sample editor, compatable with the flg-FORTH model and simple terminal 
devices. The line and screen editing functions are portable. The code definition 
for the string MATCH could be written high level or translated. 


SCR 

# 87 


0 

( TEXT, LINE 

WFR-79MAY01 ) 

1 

FORTH DEFINITIONS 

HEX 

2 

S TEXT 

( ACCEPT FOLLOWING TEXT TO PAD *) 

3 

A 

HERE C/L 1+ 

BLANKS WORD HERE PAD C/L 1+ CMOVE ; 

H 

5 

: LINE 

( RELATIVE TO SCR, LEAVE ADDRESS OF LINE *) 

6 

DUP FFFO AND 

17 TERROR ( KEEP ON THIS SCREEN ) 

7 

SCR @ (LINE) 

DROP ; 

8 

9 

10 

11 

12 

13 

14 

--> 


15 



SCR 

# 88 


0 

( LINE EDITOR 

WFR-79MAY03 ) 

1 

VOCABULARY EDITOR 

IMMEDIATE HEX 

2 

: WHERE 

( PRINT SCREEN # AND IMAGE OF ERROR *) 

3 

DUP B/SCR / DUP SCR ! ." SCR It " DECIMAL . 

4 

SWAP C/L /MOD 

C/L * ROT BLOCK + CR C/L TYPE 

5 

A 

CR HERE C@ - 

SPACES 5E EMIT [COMPILE] EDITOR QUIT ; 

u 

7 

EDITOR DEFINITIONS 


8 

: ^LOCATE 

( LEAVE CURSOR OFFSET-2, LINE-1 *) 

9 

R# <? C/L 

/MOD ; 

10 

: #LEAD 

( LINE ADDRESS-2, OFFSET-1 TO CURSOR *) 

1 1 

#L0CATE LINE SWAP ; 

12 

: #LAG 

( CURSOR ADDRESS-2, COUNT-1 AFTER CURSOR *) 

13 

It LEAD DUP 

>R + C/L R> - ; 

14 

: -MOVE ( MOVE 

IN BLOCK BUFFER ADDR FROM-2, LINE TO-1 *) 

15 

LINE C/L 

CMOVE UPDATE ; —> 


SCR 

It 

89 






0 

( 

LINE EDITING 

COMMANDS 


WFR-79MAY03 ) 

1 

: 

H 




( HOLD NUMBERED 

LINE AT PAD *) 

2 

3 



LINE 

PAD 

1+ C/L 

DUP PAD C! CMOVE ; 

• 

4 

• 

• 

E 




( ERASE LINE-1 

WITH BLANKS *) 

5 

6 



LINE 

C/L 

BLANKS 

UPDATE ; 


7 

• 

• 

S 




( SPREAD MAKING 

LINE It BLANK *) 

8 



DUP 

1 - 

( LIMIT 

) OE ( FIRST TO MOVE ) 


9 



DO I 

LINE I 1+ 

-MOVE -1 +LOOP E ; 


10 








11 

• 

D 




( DELETE LINE-1, BUT 

HOLD IN PAD *) 

12 



DUP 

H OF 

DUP ROT 


13 



DO I 

1 + 

LINE I 

-HOVE LOOP E ; 


14 








15 


--> 
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WFR-79MAY03 ) 


SCR 0 90 

0 ( LINE EDITING COMMANDS 

2 s M ( MOVE CURSOR BY SIGNED AMOUNT-1, PRINT ITS LINE *) 

3 R# +! CR SPACE //LEAD TYPE 5F EMIT 

4 #LAG TYPE 0LOCATE . DROP ; 

5 

6 : T ( TYPE LINE BY 0-1, SAVE ALSO IN PAD *) 

7 DUP C/L * R0 ! DUP H 0 M ; 

8 

9 s L ( RE-LLST SCREEN *) 

10 SCR @ LIST 0 M ; 

11 --> 

12 

13 

14 

15 


SCR 0 91 

0 ( LINE EDITING COMMANDS 

1 : R 

2 PAD 1+ SWAP -MOVE 

3 

4 : P 

5 1 TEXT R ; 

6 

7:1 ( 

8 DUP S R ; 

9 

10 : TOP ( 

11 0 R0 ! ; 

12 — > 

13 

14 

15 


WFR-790105 ) 
( REPLACE ON LINE 0-1, FROM PAD *) 

f 

( PUT FOLLOWING TEXT ON LINE-1 *) 

INSERT TEXT FROM PAD ONTO LINE 0 *) 
CR 

HOME CURSOR TO TOP LEFT OF SCREEN *) 


SCR 0 92 

0 ( SCREEN EDITING COMMANDS WFR-79APR27 ) 


1 : 

2 

n 

CLEAR 

SCR 1 

10 0 

DO FORTH I 

( CLEAR SCREEN BY NUMBER-1 *) 
EDITOR E LOOP ; 

J 

4 : 

5 

FLUSH 

[ LIMIT 

FIRST 

( WRITE 
- B/BUF 4 

ALL UPDATED BLOCKS TO DISC *) 
+ / ] ( NUMBER OF BUFFERS) 

6 

7 

8 : 
9 

LITERAL 

0 DO 

7FFF BUFFER 

DROP LOOP ; 

COPY 

B/SCR * 

OFFSET 

( DUPLICATE SCREEN-2, ONTO SCREEN-1 *) 
<3 + SWAP B/SCR * B/SCR OVER + SWAP 

,0 

DO DUP 

FORTH I 

BLOCK 2 - 

! 1+ UPDATE LOOP 


11 DROP FLUSH ; 

12 —> 

13 

14 

15 
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SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


# 93 

( DOUBLE NUMBER SUPPORT WFR-80APR24 
( OPERATES ON 32 BIT DOUBLE NUMBERS OR TWO 16-BIT INTEGERS 
FORTH DEFINITIONS 


2DR0P 

DROP 

DROP 

; ( 

DROP DOUBLE NUMBER 

) 

2DUP 

OVER 

OVER 

; ( 

DUPLICATE A DOUBLE 

NUMBER ) 

2 SWAP 

ROT 

>R 

ROT 

R> ; 



( BRING 

SECOND 

DOUBLE 

TO TOP OF STACK ) 



EDITOR DEFINITIONS —> 


) 

) 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


# 94 

( STRING MATCH FOR EDITOR PM-WFR-80APR25 ) 

: -TEXT ( ADDRESS-3, COUNT-2, ADDRESS-1 - ) 

SWAP -DUP IF ( LEAVE BOOLEAN MATCHED=NON-ZERO, NOPE-ZERO ) 
OVER + SWAP (NEITHER ADDRESS MAY BE ZERO! ) 

DO DUP C@ FORTH I C@ - 

IF 0* LEAVE ELSE 1+ THEN LOOP 

ELSE DROP 0- THEN ; 

: MATCH ( CURSOR ADDRESS-4, BYTES LEFT-3, STRING ADDRESS-2, ) 

( STRING COUNT-1, - BOOLEAN-2, CURSOR MOVEMENT-1 ) 

>R >R 2DUP R> R> 2SWAP OVER + SWAP 

( CADDR-6, BLEFT-5, $ADDR-4, $LEN-3, CADDR+BLEFT-2, CADDR-1 ) 
DO 2DUP FORTH I -TEXT 

IF >R 2DR0P R> - I SWAP - 0 SWAP 0 0 LEAVE 

( CADDR BLEFT $ADDR $LEN OR ELSE 0 OFFSET 0 0 ) 
THEN LOOP 2DR0P ( CADDR-2, BLEFT-1, OR 0-2, OFFSET-1 ) 

SWAP 0- SWAP ; —> 


SCR #95 

0 ( STRING EDITING COMMANDS WFR-79MAR24 ) 

1 : 1LINE ( SCAN LINE WITH CURSOR FOR MATCH TO PAD TEXT, *) 

2 ( UPDATE CURSOR, RETURN BOOLEAN *) 

3 #LAG PAD COUNT MATCH R# +! ; 

4 

5 : FIND ( STRING AT PAD OVER FULL SCREEN RANGE, ELSE ERROR *) 


6 

BEGIN 3FF 

R# 9 

< 



7 

IF TOP 

PAD 

HERE 

C/L 1+ CMOVE 0 

ERROR ENDIF 

8 

Q 

1LINE 

UNTIL 

J 



10 

: DELETE 



( BACKWARDS AT CURSOR BY COUNT-l 

n 

>R #LAG + 

FORTH 

R - 

( SAVE BLANK FILL 

LOCATION ) 

12 

#LAG R MINUS R# 

+! 

( BACKUP CURSOR ) 


13 

#LEAD + SWAP CMOVE 



14 

R> BLANKS 

UPDATE 

9 

( FILL FROM END OF 

TEXT ) 

15 

—> 
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SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


# 96 

( STRING EDITOR COMMANDS 


WFR-79MAR24 ) 


B 


( FIND NEXT OCCURANCE OF PREVIOUS TEXT *) 


FIND 


M 


( FIND OCCURANCE OF FOLLOWING TEXT *) 
1 TEXT N ; 

( BACKUP CURSOR BY TEXT IN PAD *) 

PAD C@ MINUS M ; 


( DELETE FOLLOWING TEXT *) 

1 TEXT FIND PAD C@ DELETE 


0 M 


TILL ( DELETE ON CURSOR LINE, FROM CURSOR TO TEXT END *) 
#LEAD + 1 TEXT 1LINE 0- 0 TERROR 

0LEAD + SWAP - DELETE 0 M ; —> 


SCR // 97 

0 ( STRING EDITOR COMMANDS WFR-79MAR23 ) 

1 • C ( SPREAD AT CURSOR AND COPY IN THE FOLLOWING TEXT *) 

2 1 TEXT PAD COUNT 

3 #LAG ROT OVER MIN >R 

4 FORTH R R# +1 ( BUMP CURSOR ) 

5 R - >R ( CHARS TO SAVE ) 

6 DUP HERE R CMOVE ( FROM OLD CURSOR TO HERE ) 

7 HERE 0LEAD + R> CMOVE ( HERE TO CURSOR LOCATION ) 

8 R> CMOVE UPDATE ( PAD TO OLD CURSOR ) 


9 

0 

M ( 

LOOK AT i 

NEW 

LINE ) ; 



10 

FORTH 

DEFINITIONS 

DECIMAL 



1 l 

LATEST 

12 

+ORIGIN 

i 

( TOP NFA 

) 

12 

HERE 

28 

+0RIG IN 

l 

( FENCE 

) 


13 

HERE 

30 

+ORIGIN 

i 

( DP ) 



14 

' EDITOR 

6+32 

+0RIGIN ! 

( 

VOC-LINK 

15 

HERE 

FENCE 

1 

;s 





SCR # 98 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


MAY 1, 
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1979 








EDITOR USER MANUAL 


by Bill Stoddart 
of FIG, United Kingdom 


FORTH organizes its mass storage into "screens" of 1024 characters. 
If, for example, a diskette of 250k byte capacity is used entirely 
for storing text, it will appear to the user as 250 screens 
numbered 0 to 249. 

Each screen is organized as 16 lines with 64 characters per line. 
The FORTH screens are merely an arrangement of virtual memory and 
need not correspond exactly with the screen format of a particular 
terminal. 


Selecting a Screen and Input of Text 


To start an editing session the user types EDITOR to invoke the 
appropriate vocabulary. 

The screen to be edited is then selected, using either: 

n LIST ( list screen n and select it for editing ) OR 
n CLEAR ( clear screen n and select for editing ) 

To input new test to screen n after LIST or CLEAR the P (put) 
command is used. 

Example: 

0 P THIS IS HOW 

1 P TO INPUT TEXT 

2 P TO LINES 0, 1, AND 2 OF THE SELECTED SCREEN. 
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Line Editing 


During this descirption of the editor, reference is made to PAD. 
This is a text buffer which may hold a line of text used by or 
saved with a line editing command, or a text string to be found or 
deleted by a string editing command. 

PAD can be used to transfer a line from one screen to another, as 
well as to perform edit operations within a single screen. 


Line Editor Commands 


n H Hold line n at PAD (used by system more often than by user). 

n D Delete line n but hold it in PAD. Line 15 becomes blank 

as lines n+1 to 15 move up 1 line. 

n T Type line n and save it in PAD. 

n R Replace line n with the text in PAD. 

n I Insert the text from PAD at line n, moving the old line n 
and following lines down. Line 15 is lost. 

n E Erase line n with blanks. 

n S Spread at line n. n and subsequent lines move down 1 
line. Line n becomes blank. Line 15 is lost. 
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Cursor Control and String Editing 


The screen of text being edited resides in a buffer area of 
storage. The editing cursor is a variable holding an offset into 
this buffer area. Commands are provided for the user to position 
the cursor, either directly or by searching for a string of buffer 
text, and to insert or delete text at the cursor position. 



Commands to Position the Cursor 

TOP 

Position the cursor at the start of the screen. 

N M 

Move the cursor by a signed amount n and print the cursor 
line. The position of the cursor on its line is shown by 
a _ (underline). 

String Editing Commands 

F text 

Search forward from the current cursor position until 
string "text" is found. The cursor is left at the end 
of the text string, and the cursor line is printed. 

If the string is not found an error message is given 
and the cursor is repositioned at the top of screen. 

B 

Used after F to back up the cursor by the length of 
the most recent text. 

N 

Find the next occurrence of the string found by an F 
command. 

X text 

Find and delete the string "text." 

C text 

Copy in text to the cursor line at the cursor position 


TILL text Delete on the cursor line from the cursor till the end 


NOTE: 

of the text string "text." 

Typing C with no text will copy a null into the text 
at the cursor position. This will abruptly stop later 
compiling! To delete this error type TOP X 'return'. 
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Screen Editing Commands 


n LIST 

List screen n and select it for editing 

n CLEAR 

Clear screen n with blanks and select it for editing 

nl n2 COPY 

Copy screen nl to screen n2. 

L 

List the current screen. The cursor line is relisted 
after the screen listing, to show the cursor position. 

FLUSH 

Used at the end of an editing session to ensure that 
all entries and updates of text have been transferred 
to disc. 
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Editor Glossary 


TEXT c - 

Accept following text to pad. c is text delimiter. 

LINE n-addr 

Leave address of line n of current screen. This address will 

he in the disc buffer area. 

WHERE nl n2 - 

n2 is the block no., nl is offset into block. If an error is 
found in the source when loading from disc, the recovery- 
routine ERROR leaves these values on the stack to help the user 
locate the error. WHERE uses these to print the screen and 
line nos. and a picture of where the error occurred. 

R# -addr 

A user variable which contains the offset of th editing cursor 
from the start of the screen. 

#L0CATE -nl n2 

Prom the cursor position determine the line-no n2 and the 
offset into the line nl . 

#LEAD - line-address offset-to-cursor 

#LAG - cursor-address count-after-cursor-till-EOL 

-MOVE addr line-no - 

Move a line of text from addr to line of current screen. 


H n- 

Hold numbered line at PAD. 

E n- 

Erase line n with blanks. 

S n- 

Spread. Lines n and following move down, n becomes blank. 
D n- 

Delete line n, but hold in pad. 

M n- 

Move cursor by a signed amount and print its line. 

T n- 

Type line n and save in PAD. 

L 

List the current screen. 
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Replace line n with the text in PAD. 
n- 

Put the followng text on line n. 


Spread at line n and insert text from PAD. 

TOP 

Position editing cursor at top of screen. 

CLEAR n - 

Clear screen n, can he used to select screen n for editing. 
PLUSH 

Write all updated buffers to disc. This has been modified wo 
cope with an error in the Micropolis CPM disc drivers. 

COPY nl n2 - 

Copy screen nl to screen n2. 

-TEXT Addr 1 count Addr 2 — boolean 

True if strings exactly match. 

MATCH cursor-addr bytes-left-till-EOL str-addr str-count 

- tf cursor-advance-till-end-of-matching-text 

- ff bytes-left-till-EOL 

Match the string at str-addr with all strings on the cursor 
line forward from the cursor. The arguments left allow the 
cursor R# to be updated either to the end of the matching text 
or to the start of the next line. 

1 LINE -f 

Scan the cursor line for a match to PAD text. Return flag and 
update the cursor R# to the end of matching text, or to the 
start of the next line if no match is found. 

FIND 

Search for a match to the string at PAD, from the cursor 
position till the end of screen. If no match found issue an 
error message and reposition the cursor at the top of screen. 

DELETE n - 

Delete n characters prior to the cursor. 

N 

Find next occurrence of PAD text. 

F - 

Input following text to PAD and search for match from cursor 
position till end of screen. 
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B 


Backup cursor by text in PAD. 

X 

Delete next occurrence of following text. 

TILL 

Delete on cursor line from cursor to end of the following text. 
C 

Spread at cursor and copy the following text into the cursor 
line. 
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